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EDITORIAL 


prenez votre plume et, vous auseli, 
effervescence 


Et n'oubliez cependant pas le Spécial-Sicob (6 au 11 mai). 


Flus vous serez nombreux, plus grande sera la féte ! 


8 bient 
Fierre DAVI 





PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


FèU 


de 


d nez 
voE 
verez 


ent de 





manière tr libre 
n'étant impo 
finsi, 

journ 

voule 

en Pl 





seul 
de 
ERDI 








ffrent 
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JFC est distribué en 
& bon 





avant-premiére 
entendeur Salut ! 


Les dates des prochaines réunions 
Le Samedi 20 Avril 1985 
Le Samedi 4 Mai 1985 
Le Samedi 1 Juin 1985 








& Hient 
Fierre DAVID 
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COMPTE RENDU DE LA REUNION DES 9 ET 10 


fois encore le Club s’est réuni en Bretagne 
c He fois-ci, au lieu de la région Rennaise, le 
point de chute a été l’extrésité de la Bretagne 
près de Guisper. Heureusesent, la distance n’a 
rebuté personne puisque (et je tiens à les 
resercier) les participants ont afflué de toute 
la France: de Lilie (Vincent DELORME), de Lyon 
(Franck LEBASTARD), de pes HÉNIÈE 
DEDIN), certains ayant mére 
vacances (Michel MARTINET) 
tous ceux qui sont venus de 
banlieue, 


Etaient final 
{72571 de 


JOUVE Grége 
Franck (P4I na de Lyon 
MRTINET Michel (F2 C ) de Paris, 
Becrges-Noël (P147 TAS8) de Crozon, NICOLAS 


sois (T6SS), POUPEE Etienne (PI97) et 
sèse (Péé T62) de Buiberon. 


Four la Opresière fois dans une réunion de 
Bretagne, nous avons réussi à avoir des sesbres 
des bureaux de nos deux Clubs français, en la 
personne de Michel MARTINET, secrétaire du Club 
de Paris, et Jean-Daniel DODIK, président du Club 
de Toulouse, qui ont eu tous deux la gentillesse 
de faire un long voyage pour venir nous rejcindre. 


Le weekend a été ponctué par un certain nosbre 


d'exposés: 


— JD, DODIN à fait le point sur un certain 
nosbre de projets qui se développent dans son 


iveau des modules nous avons appris 

nt que les Aséricains seraient intéressée 

per le ecdule PANAME, cogne quoi il suffit qu'un 
produit soit bien fait pour qu’il ait du succès; 
5 avons pu consulter la liste, eise à jour des 
fonctions du CCD-ROX, qui proset, lui aussi 

d'être un aodule très intéressant, Enfin nous 
avons appris toutes les difficultés que posent 
les iaportations de modules et qui expliquent les 
delaie parfois nécessaires à leur obtention. 


avons pu voir le catai io 
de sortir aux éditions 

e être la publication lap 

prograsses édités pour ne. sur le 

du contenu (puisque seuls + PRISMA 

5 et PC) n'y sont 

le plan de la foree {des 
es des bibliothèques, très cosp 
orth: le sodule Forex de Serge VA 
la phase du debugging, aussi le Clut et 
recherche de gens connaissant le Forth pour 
îte tache. Par aiileurs, vu le nosbre de 
sandes, ce module serait destiné à sortir sur 
OM, à soins que tous ceux qui sont intéressés 
ne s'éveillent pour pousser dans le sens d'un 
sodule HP, 
- Pari les ruseurs: un livre sur le sicrocode 
sortirait aux U.S.A., Matra sortirait une Alice 
Forth, une traduction française du sanuel de la 
ZENROM serait en cours. 
- Par ailleurs, le président nous a parlé d’une 
interface graphique vidéo et des lecteurs double 


IND 4{ qui 
Cagire, Cela 


cet 


ce! 
EPR 
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a été abordé per 
à réalisé une extension 
intéressante pour la 4{: il à réalisé par le 
biais d'un convertisseur parallèle une interface 
HE-IL (> HINITEL, 
peut ainsi se servir du einitel coess d'une 
aux normes sinitel, soit 25 
£ (Rieux que HP), 
nitel “retournabie”, 1] est 
d'échanger des prograames entre 2 4] par 
phone, en bref un aodes HF-IL bon aarche 
peut utiliser la 41 pour stocker des pages 
#initel, 
- Quand on sait que la norse minitel est, au 
voltage prés la mgss que la norse 
s'aperçoit que l'on peut disposer ainsi de le 
à un pris défiant toute concurrence 
r renseignesent, Île acntage reviendrait 
à 7060 Frs, si on y ajoute le siilier de 
Francs du convertisseur parallèle, on arrive à 
soins de 2000 Frs. pour une interface vidéc et sa 
console (pour une fais que les PTT éonnent 
quelque chose !) 


- br troisièes sujet a été abordé par 
dear-Jacques DHENIN et Michel MÉRTIN le HP7 
avons pu ainsi découvrir les po: 
, Et à ce sujet je pense que nou 
été étonnés, En effet, si le 755 
comse étant une sachine qui n'avait cos 
‘ la 41 que i'HF-IL, nous avons pu v 
malgré des caicuis 
née dans la sta philosi 
sodularité, langege de prograssation complet 
petite taille, souplesse d'utilisation 
possibilités de calcul japortantes 
microprocesseur complet, etc... 
Mais avec malgré tout un plus non négligeable 
dès sa sortie, HP a sis à la disposition de tous 
la docusentation nécessaire sur la 71. 
En plus il existe déjà un Forth pour le 71 qui 
sesble très réussi (en plus du Basic résident}. 
- Dans un autre ordre d'idées, nous avons pu voir 
en fonctionnesent une Thinkjet et une unité de 
diskette HP-Il, 2 périphériques très efficaces 
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ue à sontré un progranee dE 
sor cr si un cross asseatleur 6BGC avec 
come but té d'interfacer le 6BüC 


quant à lui nous a aontré sa 
, 1] antégre dans une sêse 
eur (4f ou 71), une iaprisante 
traçante CANIK, une boucie HF-IL, une unité 
essette HF-IL, une interface RS232C, et un 
er accoustique. Bref l'ensesble partait pour 
personne qui voyage et qui veut avoir son 
systèse disponible et sous la ain. In 
é aussi le lecteur d'EFRON que comsercialise 
SCIP, et qui sera Sans coute utilisé pour 
supporter la ROK FORTH. 
- Le dernier sujet abordé à été la possibilité de 
raccord entre la 4! et un sicro ordinateur via la 
RS232. Actuellement, les Oprogramses sont 
dévéloppés sur un SANYD 550, à mon avis c'est le 
nec plus ultra en setière de périphérique let là, 
je ne plaisante qu'à aoitié) en effet, en 
regardant le SANYO atficher les prograsres de la 
41, es stocker sur ses diskettes, servir 
d'interface  vidéc couleur graphique haut: 
dé tion, on se dessnde lequel des deux 
cosaande. Et Ja réponse est encore plus étonnant 
puisque, fait, les Odeur dialoguent en 
persettant ainsi une souplesse 
d'utilisation assez étonnante, et ce pour un prix 
de revient de l'ordre des périphériquues HF, qu 
n'offrent hélas que des possibilités inférieures 


, j'espère que ce cospte rendu je 
oublie personne, que ceux qui se sont déplacés 
our cette réunion n'ont pas regretté le voyage 
t qu'ils y ont trouvé ce qu'ils espéraient. Je 

ns à resercier Gecrges-Noë! NICOLAS, qui 

grâce à £a présence sur place avant la réunion, 
et a tout le courrier qu’il a pu faire, a pereis 
que ce rasseeblesent ait eu lieu dans de bonne 
conditions, dJe pense que la prochaine réunion 
aura lieu à l’autosne prochain, de toute façon 
vous en serez avisés dans le journal. 

En attendant ce jour, Heureuse Prograssation à 
tous ! 


e 


{Pé4 T62) Olivier POUBEUN 





EN AVORE 


Sont en vente au Club: 


- Cartes sagnétiques pour HF41 au prix de 1S0FF + 3,10FF de port les SÙ cartes; 
- Cartes sagnétiques pour HP7IB au prix de 71FF + 3,10FF de port les 10 cartes; 
- Eprors (2716 & 2732) vierges au prix de + 3,10FF de port pièce. Pour les Eproes 
programmées, nous consulter; 
— Module TIME (821824) au prix de 400FF + &,50FF de port. Livré avec sanuel en français; 
- Nodule BUADRAN 708) au prix de 4QO0FF + 6,50FF de port; 
- Module HPIL (821608) au prix de 970FF + 6,50FF de port. Livré avec manuel 
- Pour les consandes des ZENRON, CCDROM et ROK PANAME nous envoyer SÛ0FF 
— VASM Uisting des 3 presières pages de la 41) au prix de 170FF + 15,51 
- Le sanuel de service de la 4 au prix de SÛFF + 6,50FF de port; 
- Le sanue! technique du convertisseur au prix de 20FF 
- Les anciens nuséros au prix de: 
No à Sau prix de SSFF + 3,20FF 
No 4 à 10 au prix de 20FF + 3,20FF dl t par numéro, 
No 1H à 17 au prix de 25FF + par nuséro, 
à partir du No 18 au prix de 3SFF + 6,S0FF de port par numérc. 


PTT actueis en nor urgent. 


ACHATS GRDU 
Nous assurons € d j fiter de notre réduction 
“spécial Club”, i p irent, nous assurons 
l'envoi postal 
calculatrices et autres. 


NOTA: ces deux rubriques “nous en avi et “achats groupés”, sont des services “Club* que nous 


rendons exclusiveeent aux aesbres effectivesent inscrits au club et possédant leur carte de 
menbre PPC-PARIS. 


ACCORE AVEC HF 


Nous venons de conclure un accord avec Hewlett-Packard, C’est un geste d'ouverture vers notre 
Club, et nous ne pouvons que nous en féliciter. 


Désormais, il est possible pour vous, adhérent du Club, d'acheter directesent le satériel 
auprès d'HP, en béneficiant d’une réduction de 53,7 2 par rapport au prix catalogue. 


I serait dosage de ne pas en profiter. 
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LES PRODUITS 


. Hewlett Packard annonce dans la série 200 des ordinateurs HP 9000 

le modèle 217, poste de travail pour l'ingénierie, avec 512 ko 

jusqu'à 4 Mo, moniteur à tube phosphore vert de 14" d'une résolution 
de 512 x 390 au prix de 66 822 FF ht et le modèle 237, poste 

de travail graphique, avec 512 ko jusqu'à 7 Mo, moniteur 17" 

à affichage mappé binaire de 1 024 x 768 et souris au prix de 

148 821 FF ht. Le prix de la souris en option sur le 217 est 

de 1 620 FF ht. La compagnie annonce également l'analyseur de 
protocole portable HP 4953A qui permet de surveiller la transmission 
des données ou simuler des composants de réseaux. Peut être totalement 


télécommandé et déclenche jusqu'à 72 kbps en duplex intégral, 
vitesse 50 bps à 72 kbps. 























u 5 Avril ve se 
cou E ressemblant 
Fast = æende Ur£E 
de P cipe cet 
con ivers 
eve t 























ce ce 

le Fe 

ilemen 

sont su point et 
vont étre très prochainement danse le boitier. 





En effet, eprès l'E.D.H.E.C., ls S.C.I.P. ve se lencer 


dens le Tour de Frence à le Voile (T.F.V.]) où elle ser. 
partenaire du bêteau "Ville de Paris - E.S.C.P.". 
Chrietiæen DUMARD le navigsteur = été particulièrement 
séduit per "LE NAVIPROM'" qu'il compte utilieer (c'est officiel), 
pour le T.F.V. 1985. 


LE NAVIPROM soyons en eûr, & un bel avenir devent 
lui, autant en course qu'en croisière, Souheitones lui 
bonne chance. 





N.B. : Pour tour renseignemente corplémentsirees, contscter 
S.C.I1.P., 10-12,rue Deltérsl -93310 LE PRE ST-GERVAIS. 
TEL. : 6840-56-20 
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DUR ET MOU 


Fierre ANTOINE 


Fhilippe ROMASCANC 


E AC POUF HP7 


Le module AC Steaiy State Circuit Analyse 
5 fichiers: 


Deux fichiers LEX: 

- Circuit contient le numéro de versi 

- KEYNAIT contient la fonction KI 

l'effet est sisilaire à KEY$, sauf que KEYRAITS 
attend la pression d’une touche {voir JPC No 20). 


Trois fichiers BASIC: 

- CNAP est le prograsse principal. 11 appelie le 
sous prograsse CNAP71 afin de préserver 
‘environnement du HP71, 

- ENAPOUT contient le sous prograase OUT, appelé 
per CNAP, et qui a pour têche de forsatter toutes 
les sorties vers l’isprisante ou l'affichage. 

— CNAPHEAD contient le sous progr HERD qu 
génère les en-têtes des sorties imprisées où 
affichées. 
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LE MODULE AC FOUR HF71 


is du module 
Cireuit 


DCTION HF41-HF71 
ignements sur 
promet ! 


LEN DATE TIME PORT 
450 12:60 4 


55 
BASIC 


CNÉP peraet une analyse rapide de n’iaporte que 

circuit en régise AC persanent. 

ll peraet: 

- la sisulation de filtres actifs, 

- l'analyse de filtres LC contenant des 
transforsateurs et des inductances couplées, 

- l'analyse des circuits asplificateurs à 
transistors, 

- l'analyse des asplificateurs opérationnels, 

- et l'analyse des asplificateurs haute fréquence. 


Un HP71 peut résoudre un circuit cosportant un 
saxiaus de 17 noeuds et 51 branches. L’ajout de 
sodules sésoire peraet d'étendre le circuit à 24 





noeuds et 72 branches, 


Les éléments reconnus par le prograsse sont les 
résistances, les inductances, les capacités, les 
Vecs et les éléments de transition. Par 
conséquent, si le circuit comporte des 
transistors, des aspli-op, des transforsateurs, 
etc, il faudra déterainer les éléments 
équivalents. Le sanuel décrit les opérations 
persettant d'arriver à un circuit pouvant être 
accepté par CNAP. 


CNAP se présente sous la forme de menus. 11 
suffit de répondre aux questions ou de choisir 
parei les options proposées. 


ENTREE DU CIRCUIT: 

11 faut au préalable nuséroter tous les noeuds du 
circuit, Ensuite, pour entrer un élément du 
circuit, il suffit d'indiquer son esplacesent 
(les noeuds de connexion) et Jles valeurs 
caractéristiques de l'éléaent, 

1 est possible de changer, détruire ou ajouter 
des branches au circuit: celui-ci peut égalesent 
étre stocké dans un fichier DATA pour un rappel 
ultérieur. 


SORTIE DES RESULTATS: 

ENAF desande Je noeud de sortie. L'option 
“group delay" consiste à analyser le circuit à 
des fréquences justes supérieures et inférieures 
à la fréquence d'analyse en cours. Le taux de 
aodification de la phase suivant la fréquence est 
le “group delay". Cette option double le tesps de 
calcul. Cette valeur est obtenue par 
différentielle nusérique des valeurs des deux 
phases obtenues. 


CNAP  desande ensuite le type d'incrésent 
linéaire ou logarithaique), l'intervalle d'étude 
et la valeur de l’incrésent (nosbre de points par 
décade pour un balayage logarithaique), 

Le dernière option est la sortie des résultats 
vers l’iaprisante. 

Les sorties sont forsattées par CNAPOUT: 


l'en-tête est contenue par  CNAPHEAD. 
L'utilisateur à la possibilité de définir son 
propre en-tête et sson propre forsattage des 


résultats (sorties quelconques vers l’inprisante, 
stockage des résultats sur cassette ou diskette, 
siniplotter ou table traçante graphiques). 


La routine CNAPOUT donne la fréquence, le gain en 
dB, la phase et, éventuellement, le "group delay” 
{en sec.). 


Les annexes du sanuel décrivent la séthode de 
calcul de CNAF. elles donnent la liste des 
fichiers et des variables utilisés par les 
Prograsees. Les  Voltage-controlled current 
sources et les élésents de transition, ainsi que 
le foraat sous lequel] est stocké le circuit sont 
expliqués, 


CAP est assez satisfaisant. I] est cependant 
dossage qu'il faille transformer jes circuits 
comportant certains éléments classiques en 
éléctronique, sais non reconnus par le progranne, 
surtout que ce n’est souvent qu'une question de 
calcul. 


I faut égalesent noter que tout est en anglais, 
mais le sanuel coeporte quelques exesples bien 
choisis, à défaut d’être nombreux. 


Pierre ANTOINE 


MODULE DE TRADUCTION HP41-HP71 


Ce nouveau module perset d'exécuter la plupart 
des prograsses écrits pour HP41 sur un HP7IB. 


Quelques questions à propos de ce aodule: 


Qu'est ce que ce module ? 
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Le “Translator Pac" est un aodule d'application 
pour Je HP7IK qui éaule une HP4! et pereet la 
traduction des programmes de ce calculateur. 


Cossent entrer les programses dans le HP7IE ? 


Vous pouvez soit entrer le prograsse au clavie 
du 71B, soit transférer le prograsse à travers la 
boucie HPIL, 


Peut-on écrire des prograses HP&1 ? 


Qui: ce sodule contient un éditeur puissant qui 
vous peraet d'écrire des progranmes HF4Ï à partir 
du cievier du HP7IE 


ent vont fonctionner les prograsses traduite ? 


Le sodule est construit de sanière à produire les 
stees séquences d'affichage qu'une HP4Î. Les 
résultats peuvent quelque peu varier, la 
précis nathésatique du HP7IR étant plus grande 
que celle de la HP41. Si différence il y a, le 
résultat ne pourra qu'être plus juste ! Les 
aessages d'erreur sont également plus explicites, 


Fa sodifier les prograsses H 

Nor, pour autant q 

reconnues par le soc 

des progranges r 

Quelles sont les fonctions reco 

Toutes les fonctions programsables des HP: 

plus quelques fonctions de maripulat 

données de la HP4ICX et du ac XFonction 
module contient égalesent toutes les fonctions 
non-graphiques de l’isprisante du aodule HPIL, 


Quelles sont les fonctions HP4ICX non reconnues ? 


Les fonctions tesps, alaree, chronosètre et 
séaoire étendue. 


Quelle place sésoire utilisent les prograeses ? 


Les prograeses traduits prennent 2,5 fois plus de 
place dans le HP7IE, 
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Quelle est la vitesse d'exécution ? 


Les prograsses, suivant leur contenu, tournent de 
4 à 8 fois plus vite. Les prograsses contenant 
des chaines alpha et des branchesents tourneront 
plus Jentesent que des applications purement 
sathésatiques 


Le aodule réplique-t-il le clavier de la HP41 ? 


Non. Le msoduie donne au HP7! un aode HP4I, sais 
pas toujours une réplique touche par touche des 
opérations. Des différences ont été introduites 
pour tirer profit de la puissance et de la 
ilité du HP71, Un utilisateur HP4I n'aura 
difficuité à passer d'une machine à 


Quelles sont les nouvelles fonctions ? 

Jusqu'à 1 registres de données directesent 
accessibles, jisités par la taille aéacire du 
HP7IB. 

Eepioi de la pile de coeeande 

Exécution des fonctions par leur noe, sans passer 
par une touche YED alpha ... alpha 

L'éc sontre l'état de la pile après chaque 
opérat 

Les prograsses HP4] sont traduits en FORTH ! 
Faudra-t-il apprendre Le FORTH ? 

Non: la traduction est autosatique. 


Est-ce que le sanuel perset d'apprendre le FORK ? 


Non: il existe bon nosbre de sanuels dans le 
commerce, 


Pourra-t-on prograsser en FORTH ? 
Qui: le sodule contient le systèse FORTH et un 


dictionnaire de plus de 300 aots. 


Philippe RONASCANO 





Fierre LANGLOIS ROUTINES COMFLEXES 
Affrontez vos complex 
la tete haute 





Michel CLAEOT ÉIORYTHME 7 
Calcul du biorythme. 


Jean-Jacques DHENIN LE MODULE FANAME ET L'INTERFACE VIDEO 
ou comment rediger des programmes 
plus courts et plus lisibles... 
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COMPLEXES 


Après F-" et "NO", voici "C'A", qui siaule, lui 
aussi, une pile opérationnelle sisplifiée - 
destinée, cette fois, aus complexes, Rappelons ce 
qu'est une pile siaplifiée: 

Elle conprené deux registres de calcul: CI et CY 
plus un registre de stockage: CST, destiné à 
sauver les résultats intersédiaires dans une 
série de longe calc 

io le relativesent faible encosbresent des 
nol complexes a perais de caser CY et CY dans 
la e opérationnelle (la vraie, celle dont vous 
avez l'habitude.) de La façon suivante: CI=X+1Y 
CY=I#iT, Enfin: CST=1013#i (02) 

12 faut donc taire un peu attention lors des 
sanipulations: toujours introduire la partie 
isaginaire (ENTER‘) avant la partie réelle, Les 
habitués de la fonction R-P ne seront pas 
dépaysés, D'un autre coté, la lecture est plus 
logique: à la fin de chaque opération, c'est la 
partie réelle qui est affichée, XCY peraettant 
d'avoir le partie isaginaire 

de n'ai pas prograssé le calcul du aodule r du 
coosplexe CX pour une raison évidente: 1l est 
d'origine sur nos chères HP4i, directement 
accessible au clavier avec la fonction R-F qui, 
en prise, niques donne l'ange polaire 
correspondant Ethéta] en X, ils seront 
interprétés par Île progranse non pas COBsE 
r e'i6, mais come r+tif, ce qui est une source 
d'erreur non négligeable. 

Pour des raisons tout aussi évidentes, le 
prograsse ne cosporte pas de aodule pour cal 

le cospiere conjugué de Cl; vous pouvez toujours 
Île rajouter s1 cela vous paraît indispensable, 


Le prograsse est, bien entendu, aodulaire : 

"C4"; "C-"; "Ci; "C/* parlent d’eux-sèse: ce 
sont les quatres opérations appliquées au: 
coaplexes. CX contient le résultat et CY reste 
intact, 

CA et "CHA" persettent  respectivesent 
l'élévation de CX à la puissance du réel À (S 
R=-1, vous obtenez 1/CX, et si A=i/n, une racine 
nièse de CY) et la eultiplication de CX par À. La 
séthode utilisée perset de ne pas abiser CY au 
cours de l'opération: vous appelez le aodule, qui 
stocke tesporairesent X en M et vous denande 
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alors À, Le procédé a deux inconvénients: il 

dévaste Le rgistre alpha et ren le soguie 

esent appelatle à partir d'un autre 

J'ai préféré favoriser la facilité 

direct, Les éventuelles aodifications 

que vous pourriez souhaiter ne sont pas très 

difficiles à réaliser, Rappele:-vous cependant 

que l'intérêt principal de la séthode utilisée 
est de préserver le contenu de CY, 

Enfin, "OST" sauve CI en CST, "CRC" rapelie CST 

en ant aonter CX en CY. 


Ce prograsse occupe 130 octets, 11 tient donc à 
l'aise sur une carte magnétique, sans "CST" et 
il tient aëee sur une seule piste, Vous 
donc largesnt ajouter vos propres 
nodules, Je pense personnelesent 4 la résclution 
des équations du second degré à coefficients 
cospiexes. 


plus ! Vous pouvez désorsais affronter 
la tête haut 


keicaiesent 


Pierre Langlois 


89 Oh 
18 LASTX 
A vtx 
12 RM 
13 XOY 
14 F-R 
15 RTK 


164LBL “Cap” 
17 “A? 





18 AVIEN, 
19 STO M 
28 RDN 

21 STOF 
22 ST*h 
23 + 

24 RM 
25 RTK 


266LBL *C-* 
2? CHS 

28 XCY 

29 CH 

38 XOY 


316LBL *C+* 
32 R+ 

33 ST+ Z 
34 F+ 

35 ST+ 2 
36 RIK ” 
37 REN 

38 RTH 


334181 
48 R-P 
aii# 
42 xO 
43 CHS 
44 XCY 
45 F-R 


AGeLEL “Ce” 
A R-F 
48 Rt 

43 Rt 

58 R-P 
51 STs 2 
52 XOY 
53 STHT 
4 OY 
55 PR 
36 RDH 
57 RDK 
58 P-R 
59 RTH 


68eLBL -CST- 
61 STO 81 
62 XCY 


63 sT0 82 
64 XOY 
65 RIN 


6GeLBL “CRC 
67 RCL 82 
68 REL 81 
69 RTN 

78 END 


Vous aveez dit "BIORYTHME" ? 


Rappelons à ceux perdus “au fond de la 41" que 

suivant des études sérieuses faites par des 
Docteurs, notre corps subirait des influences 
suivant certains cycles: 


Physique de 23 jours (Dr W. FLIESS) 
Esctionnel de 28 jours (Dr H.SNOBODA 
Intellectue} de 33 jours (Pr À. TELTSCHER 


Ces cycles, dont le premier jour se situerait le 
jour de notre naissance, seraient tantôt positifs 
{période faste), tantôt négatifs (période 
néfaste). 


Pour juger de sa foræ, voici donc "Bl" 

prograsse court de 72 lignes, 24 registres, 
persettant en fonction de sa date de naissance de 
connaître sa période faste ou néfaste. Pour nos 
anis puristes, les lignes suivantes peuvent à 
loisirs être aodifiées: 


1=/Date de naissance 
+ D2=/Date de base du calcu 
: JRS/JDURS 
29: PHY/PHYSIQUE 
32: EMO/EMOTIDNNEL 
35: INT/INTELLECTUEL 
40: MOY/MOYENNE 


Lancez le prograsse par R/S, entrez la date au 
foraat DD,MMYYYY (19,021985) pour "Di=" et "D2=", 
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Raicalerent û "MOY" 
! 1 XEG 08 
RIN 
Michel CLABOT ï 670 00 


COLIS TE 
45 E2 


OHLEL °B1" CEA 

02 CF 29 1! S°'+" 
03 DATE 1 #RCL X 
04 510 02 è F0 
1 ep 

Ru” 


07 CLST 
STD 07 
nie *? 
REL 01 
AREL X 

2 PROMPT 
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+ Ale 


Envoie le contenu du registre ALPHA suivi de 8 espaces. 


290 “1 OUTR OUTSPX “7” OUTR OUTSPX "3" OUTA OUTCR OUTLF 
300 “ ” XEQ "2" XEO XEO “x” OUTCR OUTLF 


Préparation de la pile pour le boucle 07: 
306 2.015 
307 2 ficat sur Z caracter. 
308 88 c d 
308 29 
310aLBL 07 
311 R° 
ER 
313 RPPX 
314 R° 
315 suBs 
ae"i- uniquement 
317 OUTA e 
318 R° R°  OUTYBX 


321 OUTCR OUTLF 156 
325 SCRLDN TONE 8 7 15 XYTAB CSRON RIN 


332181 “i-1234567890" OUTA CLA RIN 
337LBL 14 PSE PSE PSE RIN 
342eLBL 99 


343 48 
344 FINORID 


345 X-07 GTO 00 

347 SELECT RIN 

345eLBL 00 

350 5 FINDAID 

352 X=07 GTO @ 

354 SELECT 

355 CLA 27 XTOAR 107 XTOAR OUTR RIN 


Selectionne le jeu de caractères standard. 


362eLBL @O “NO VIDEO" BEEP PROMPT END 
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HP- IL 


Fhilippe TENAND 


L'OUTIL HPIL ET SES ELEMENTS. 


Il ne s'agit pas d’une interface peræettant de 
relier de gros ordinateurs, I] s° d’une 
interface peu couteuse, pratique et toutefois 
puissante, tant des applicat 
entre 5 ériels peu 
gst donc pos 
HFIL (eicro-ordin 
nées n°isg 
sallette, voire une © 
poche. L'intérêt sé grande ÿans: 
possibilités: le systése HPIL 
des caiculatrices à des systère: 
performants, pour des applicatior iques et 
professionnelles, F Hexlett ard, 
l'HPIL (ou Helett-Fackard Interface Loop: est 
constitué par un cable à deux conducteurs qui 
permet un raccordesent rapide et sisplifié. 
Insensible aux parasites, ce systèae d'apparence 
fragile est capable de raccorder dans une és 
boucle 30 périphériques, chacun espacés de 100 
sètres. 
Utilisable sur une table, avec du matérie 
cospatible, ou dans la rue, l’HPIL reçoit sans 
cesse par son constructeur de nouveaux 
périphériques, dont le nosbre augsente ste 
pendant que vous lisez ces lignes. Tous les 
nouveaux ordinateurs de table où transportables 
HP sont prévus pour avoir une option HPIL au sein 
de ja marque, Au tesps ou la boucle fût créée 


les applica étaient peu nosbreuses, sais 
rapidenen périphériques nouveaux sontrèrent 
les apr i possibles au sein d’une 
entreprise, laboratoire, d'une étude sur le 
terrain, de prises autosatiques et autonoses de 
données physiques, aidés per un logiciel de plus 
plus isportant et traitant tous les sujets. De 
nosbreuses entreprises de création de 
els, indépendante de Hewlett-Packard 
centaines de prograsses tout fait, 

toutes les applications possibles 

astronoæie, gestion, 

prises de données, béton 

l etc...) ainsi que du 

ensions diverses) et 

ns, tout ceci pour 

HPIL, ce qui est à 

à l'aide fournie par 

inateurs portables 


Faisons d’abord une liste de tout le satérie 
cospatible HPIL existant, que nous verrons avec 
plus de détails ensuite, et nous finirons par 
quelques conseils et satériaux utiles pour 
utiliser au sieux la boucle HPIL, que ce soit au 
sein de Henlett-Packard ou par des fabriquants 
indépendants, 


Liste des périphéques HPIL, 


SYSTENES: 





— série 40: HP4IC, HP4ICV, HP4ICI. 

- série 70: HP71B, HP7SC, HP75D. 

- série 80: HPE3, HPBS, HPBB, HPB7. 

Et per l’interaédiaire des interfaces: HP1000, 
HP3000, HPI50, etc..., ainsi que du satériel 
rendu compatible HPIL avec le KIT Hewlett-Packard, 


PERIPHERIQUES: 

— HP 82161À, unité à sicrocassettes nusériques. 

- HP 821624, iaprisante / traceur thersique. 

- HP 82163B, interface vidéo 32 colonnes (options 
toutes noraes). 

— HF 921984, interface vidéo 80 colonnes (options 
toutes noraes). 

— HP 82912À moniteur vidéo 

- HP 8216BA, aodes acoustique. 

— HP 22258, thinkjet, japrisante à jet d'encre 
vaporisé. 

— HP 829058, option 248, iaprisante 80 colonnes à 
ispact. 

- HP 74704, option 003, table traçante / traceur 
graphique. 

— HP 2671A, option 048, iaprisante theraique alpha 
nunérique, 

- HP 26716, option 048, iaprisante  thereique 
graphique. 

Diverses jsprisantes, tables traçantes, (Seikosha 

GPIOOA, Canon X710, Tandy C6PI15, etc...) 

interfacées HPIL par des Clubs, ou des 

distributeurs indépendants. 

— HP 5006A, analyseur de signature. 

— HP 34688, aultisétre digital. 

— HF 53854 cospteur de fréquence. 

— HP 3421, unité de contrôle et d'acquisition de 
données, 

— HP 3056DL, rack pour l'union de plusieurs HP 
34214. 


INTERFACES: 

— HP 821604, interface HPIL pour série 40, 

- HP 82401A, interface HPIL pour HP71, 

= HP 82938À, interface HPIL pour série 80. 

— HP 82166, kit de convertisseur d'interface HPIL, 
— HP 82164A, interface HPIL -— R52320. 

— HP 82169A, convertisseur HPIL -- HPIB. 

— HP 82165A, convertisseur GPIO. 


Notons qu'avant l’existance de la boucle HPIL et 
du systèse de la série 40, le HP97 aodèle *S" 
était équipé d’une interface DCB (prise type 
ANPHENOL 37-3050 ou équivalent), (décisal codé 
binaire), vieux aodèle couteux et peu perforaant, 
sais unique en son genre, Le systèse HPIL, lui, 
est infinisent plus pratique et soins onéreux. 
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Les modèles des séries 40 et 70 ont des grilles 
d'identification interchangeables sur claviers. 


LES SYSTENES COMPATIBLES HPIL 


Nous n'insisterons pas sur les aodèles ne 
représentant pas une nouveauté dans la aarque. 


SERIE 40 

Systèse de poche utilisant le langage RPN 
{notation polonaise inverse), système évolutif 
dont un HP4{ est le centre, avec séaoire 
persanente, affichage à cristaux liquides, 
touches personnalisables, systèse conversationnel 
et clavier alphanumérique. Le aodèle HP4IC à 441 
octets, la 410V à 2233 octets et la 410 se 
transforse en 41CV par l’adjonction d’un sodule 
méaoire appelé QUAD’. Possibilités d'extension 
jusqu’à 6,4 koctets. La 41CX est une 41CV plus 
puissante en possibilités (horloge, fichiers, 
chrononètre) et intégrant les aodules XFONCTIONS 
et le sodule horloge, en plus de particularités 
propres. Il possède quatre logesents pour 
enfichage et extensions. Parfait pour une 
utilisation sur le terrain et le nosbre 
d'extensions utilisable sur pile, batterie et 
adaptateur AC. Le nosbre de fonctions grandit par 
ajout de RDX. Four une utilisation 
professionelle, le HP4iCX est recoasandé, aodèle 
puissant et résistant, 


SERIE 70 

Récesment distribué, le HP7IE sesble plus petit, 
soins cher et plus puissant que le HP75. I] 
répond à un besoin différent, le langage basic du 
HP75 est aoins conplet que celui du HP7IB, mais 
tous deux ont des possibilités égales ou 
supérieures à certains aodèles de table. Ils 
disposent d'un écran à cristaux liquides et si un 
lecteur de cartes sagnétiques est intégré au 
HP75, il est en option sur le HP7IB, La 75 
contient au saxiaus de ses extensions (trois 
espaces de sortie) 96 k-octets de ROM et 24 
k-octets de RAN, l'interface HPIL est intégrée au 
HP75. Le HP73D diffère du HP75C par une interface 
intégrée de lecture des codes barres, afin 
d'offrir une solution à la collecte de données 
sur des sites décentralisés. 


Exesple d'utilisation: un ingénieur de 
saintenance peut utiliser le HP75D au cours d’une 
intervention pour enregistrer tous les détails de 
cette intervention, quand celle-ci est tersinée, 
il peut transsettre son conpte rendu à son centre 





de asintenance grêce à un 

peut recevoir des nes 

rende:-vous ou des info 

Il est aussi parfait pour la collecte des dorées 
de stocks er sagasin, l'assistance à la vente où 
le suivi des échantillons en laboratoire, pa 
exesple à l'aide du lecteur de codes-barres (en 
optioni, Il existe un sodule RON de lecture de 
codes-barres qui perset de lire la plupart des 
codes-barres industriels 

3,9 

2,5 entrelacé 

1 

UFC Aou E 

EAN 8 ou 15 

CODABAR 

De plus un berceau alisenté sur piles (HP827154 
dans lequel repose le HF75D ajoute une connexion 
oder J0G bauds et 32 ou 64 k-octets de séecire 
disque-électronique. L'ensesble autonore berceau 
et 75D mesure 16,5329,245,7ca. Un scdu ROM 
entrées/sorties est disponible les 
applications de contrôle sous L et la 
progragsation de haut niveau. Le HP 

outil de calcul polyvalent persor 

cospagnon de voyage léger mais très pu 

avec, par la bouzie HPIL un choix crois 
périphériques et d'extensions. 


que celui de 


le plu 
le langage bas 
un resarquatle 
problèses, !l possèd 
un systèee des pl 
qu'une HF4i,  reprer 
redefiniesage des touches 
ligne et cristaux liquides de 
présente des caractères très 
caractères sont affichés à la fois, les lignes 
cosptant 96 caractères portatifs, il est alisenté 
par 4 piles AAA ou par secteur. 


Le HP7IE créé plus intelligesent que le HP75, 
que ce soit par ses touches à fonctions aultiples 
ou par son incroyable facilité d’esploi, il fait 
d'esblée l’unanisité et détrône sinon par le 
prix, du soins par les perforsances et la taille, 
ce qui était l'avatar de la HP41. Tout aussi 
professionel que le HP75, il est aussi portable 


que ja HP4] pouvait l'être, réunissant par cet 

polyvalent les adeptes de l'un et de 
‘autre, Les cartes sagnétiques du HF7IR sont les 
nbnes que celles du HF75, de plus le HP?! sesble 
ttre plus rapide et sa prograssation s'apprend 
plus rapidesent que celle du HP75, grâce aux 
fonctions assignées et gravées à trois niveaux 
sur certaines touches du 71B. À l'usage aussi, il 
se trouve plus aariable. S1 l'avantage du 75D est 
son Jecteur optique, 11 reste à attendre cette 
extension sur le HF71B pour en faire un "state of 
the art” de }’inforsatique portable cosne l'est 
le OHP4 sur Je asarché des calculatrices 
programsaties, 


SERIE 80 
En quittant les séries 40 et 70, nous tosbons 
dans le eatériel de table non transportable et 
qui ont des buts et des possibilités tout à fait 
différents. Nous avons là l'écran vidéo {intégrés 
pour certains de la série 80), des séaoires de 
masse de grande capacité et dont les possibilités 
sont encore plus élargies par la boucle HPIL. Un 
exe 5 vous pouvez mettre dans une boîte, en 
pleine forêt, (ou sur une ligne électrifiée), une 
HP4Y eunie d'un eodule Ohorioge et d'ur 
aultisètre, qui se mettront en sarche et 
'éteindront autosatiguesent toutes les heures, 
mesurer une température iou une 


Stocker les résultats soit 


microcessette co une autre, et vous 
avec votre ordinateur de table (séri 
grêce à la boucle HPIL qui utilise le sése 
ériel, à savoir une unité à cassette HFIL, 11 
£ suffit de mettre la cassette en question 
ir que votre ordinateur de le série 80 vous 
délivre graphiques et inforsations à souhait, et 
vous dicte par exeaple les aodifications a 
apporter dans un plan ou que faire des 
inforsations suivant leurs qualités par rapport à 
une aoyenne où à un plan préétabli. 


L’union d’un ordinateur de poche HPIL avec un 
ordinateur de table HPIL est un outil des plus 
performants. les calculateurs portables HPIL 
persettent des acquisitions de données aux prix 
les plus bas du sarché. Et en utilisant les 
sodèles HPIL plus perforeants, vous acquierez une 
perforsance et une rapidité d'étude la plus 
rapide qui soit dans la gare de prix de ces 





sätériels. L’idéologie et le principe sêse de la 
boucle HPIL en fait le susaus au point de vue 
rapport perforsances/prix. Un dialogue parfait 
peut enfin se faire entre l'ordinateur puissant 
{car par le biais des interfaces, on atteind les 
gros ordinateurs HP) et le petit ordinateur 
apportant des données urgentes et aultiples, par 
le biais d'un mère langage, celui qui unis les 
périphériques de la boucle. C’est ici la notion 
de prix et de sisplicité qui l'emporte, par son 
originalité, sur d'autres boucles ou interfaces 
qui n’ont pas les mêses buts ni les atses 
capacités, L'HPIL à pour base un satériel léger 
et pertoreant et joignant l’utile à l’agréable 
1] cossunique avec du matériel plus lourd. Les 
ordinateurs de la série BC n'étant pas des 
nouveautés récentes, nous abrégerons leurs 
caractéristiques. C’est le type de matériel qui a 
autant besoin d'interfaces perforsantes come le 
HPIB (etc...) que le HPIL pour l’arrivage rapide 
de données nosbreuses ou sur le terrain. 


Au début était le HPB5, complet, puis est arrivé 
le HPBS, sisplifié, Le HPB7 plus puissant et à 
l'écran plus large, et conjointement le HP&é et 
le principe sodulaire: l'écran était séparé du 
reste, et dans un autre aodèle on avait droit à 
un ordinateur type HPB5 où tout était sépar 
clavier, écran, séroire de easse, unité centrale 
Nous n’en parlerons pas ici. 


Un défaut du H était un écran très pet 
12,7ca de diagor D servait donc à anal 

des données plutét qu'à faire de jolis des 

née si la définition des caractères { 

57) n'était pas meuvaise, avec graphi 
5924258 points. Le HP8S resoit 32 k-octet au 
saxieus et contient intégré une unité à cartouche 
perforsante 210 k-octets de données et 195 
k-octets de prograsre) et une iaprisante (10,8ce 
de largeur de papier), un vrai petit ensesble 
performant pour bien des applications. 


Le HP83 offre une puissance de calcul identique à 
celle du HPB5, dans un boitier sesblable, sais 
est destiné à ceux qui veulent choisir une autre 
capacité de stockage et une iaprisante différente 
ou plus perforsante, l'écran étant le aêae que 
celui du HP85, Dans l’optique inverse, le HPE7 
est un HPB5 avec écran deux fois plus large, plus 
puissant et sans unité à cartouches sagnétiques 
{spécialisté HP de cartouches incassables) n 
isprisänte, laissées au choix et de préférence, 
come disent les sanuels d'utilisation, dans les 
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nodèles de la nése marque. L'écran passe à 
5441240 points, la sénoire est de 544 k-octets en 
version pleine (d'origine à 32 k-octets). 


Le HP87 est un systèse d'inforeatique personnelle 
très souple destiné aux scientifiques et au 
ingénieurs confrontés à des calculs cosplexe, 
ayant une structure aodulaire, avec interface 
HPIR intégrée et, (c’est pourquoi nous le nosons 
option IL, (entre autres). Grace à un très 
large choix de mémoires de sasse, d'iaprisantes 
et de traceurs de courbes et aux moyens de 
cossunications avec d'autres ordinateurs 
celculateurs et systèses d’instrusentation, le 
HPE7 s'adapte au travaux de laboratoire 
d'atelier ou de bureau. Avec des langages 
quasi-identiques les sodules de la série 80 
voient leurs logiciels sodifiés seulesent pou 
que l'utilisateur exploite leur sachine au 
. eais ils sont pratiquesent échangeables 
l’un à l’autre différence d'écran pour le HP87). 
Le HPBb est un clavier, auquel il faut tout 
apporter, un soniteur vidéo de grande taille (24 
lignes de texte sur B0 colonnes), des unités de 
disque souples compatibles avec celles du HPE7 et 
surtout son entière compatibilité avec le HPB7, 
sè capacité de 576 k-octets de mésoire 
seteur (et 46 k-octets pour le systèse) la 
e HPIL nous asène très très loin! par 
rt à ses aspirations du début... 


les systèmes, voyons les périphériques 
utilisables sème à partir du petit (sais 
sal puissant) HP41, 


S'il y a plus de périphériques pour le petit 
satériel (série 40, 70), c'est que justerent 
c'est le créneau de la boucle HPIL: le faible 
coût. Brancher un HPIL sur un satériel trop 
ieportant devient ridicule, laissons celà à 
PHPIR ou autres RS-232, ... sauf dans certains 
cas {prises de données sur le terrain). 


L'avantage de la portabilité du HP4i en fait 
justement l’outil idéal, par son dialogue 
fonctionnel, ses dispositifs de controle 
intégrés, sa prévention et détection des erreurs, 
son affichage  aultifonction, ses signaux 
d’avertissesent sonore, ses solutions sisples au» 
problèæes difficiles par l'HPIL. La 41 devient un 
réel systèse inforsatique personnel. 


Le sodule d'interface HPIL transforse la HP41 en 
contréleur de boucle, il cosprend les cables 





l'électronique et les fonctions nécessaires pour 
gérer l'interface, la séroire de passe et 
l'usprisante graphique. Les fonctions générales 
d'entrée/sortie du aodule d'interface HPIL vous 
peraettent de gérer d'une aarière précise le 
fonctionnesent de la boucle. 


Le HPB21b1A est je lecteur de cassette nusérique, 
131000 octets de données, c’est à dire 50 fois la 
capacité du HP4i peuvent être stockés sur une 
mini cassette nusérique HP (cassettes spéciales 
de sarque HP, et pas une autre}. L'accès rapide 
fait de cette unité un dispositif 

stockage de sasse pour les 

fréquersent mises à jour. 


L'iaprisante thereique HPB2162A est petite et 

pratique, et peut juste créer une courbe où des 

codes barres (grèce au sodule ROM ‘plotter" 

d'une maniére graphique. À part celà, elle est 

alphanueérique et peraet d'isprimer tous 

caractères spéciaux (créés par la HF4l) ou de 

lister un prograsre, Elle iaprise tout résuitat 

ssage {en une seule couleur: noir ou 

s diverses larçgeurs, avec ou sans 

de mots, ce qui est suffisant pour des 

petits résultats et est parfois très esthétique 
quand aux résultats 


Le audule d'interéace vidéc HPB2I6SE pos 
HPIL à ure extrémité et un 


des jista 

de télèvi 

de télévision ues équipés 

vidéz ou recevan le canal E4 (CCIR b, 
Fessant sur les interfaces dont le fait 
n'apporte guère de cossentaires, leur ex 
étant sisplement la preuve d’une corceptior bien 
faite d'un systèse et de son universelité, Un 
systèse de si faible coût avec tant de 
possibilités est unique et original. Disons juste 
que le Kit /convertisseur d'interface HPIL 
HPB2166C est destiné aux DEX, à l’enseignesent, 
aux électroniciens ou aux asateurs, Il relie 
l'interface HPIL à deux bus bidirectionnels B 
bits parallèles (ou à un bus bidirectionnel 16 
bits), Le convertisseur cosprend tous les 
circuits d'interface peraettant de réaliser une 
liaison entre L'HPIL et d’autres équipesents 
électroniques. L'ensesble se cospose d'une 
docusentation cosplète sur les cosposants, de 
quatre jeux de cosposants pour la réalisation de 


prototypes et du Jogiciel de développesent HFIL 
utilisable sur des calculateurs de la série 40, 
L’iaprisante à 1apact HP62905EK (option 348) édite 
sur BC colonres des caractères de 949 points, 
avec iapression bidirectionneile de 80 caractères 
par secondes. Un jeu de caractères peraet 
d'éditer des textes en plusieurs langues. La 
long: de la page et les sauts de perforations 
sont également prograssabies. (NDLR: c'est 
celle-ci qui isprise le journal} 


La table traçante HP74704 (option 003) perset de 
réaliser des travaux de qualité professionnelle. 
Ce traceur à 2 pluses, er couleurs, possède 40 
instructions graphiques complexe HP&L (langage 
graphique Hewlett-Packard! et 5 jeux de 
caractères internes, dont 3 jeux européens Le 
test peut-être écrit dans une direction 
quelconque, avec Ou Sans inclinaison des 
caractères et en différentes  taiiles 
l’utilisetion de syaboles intégrés au traceur et 
de 7 types de lignes en pointillés contribue à 


clarifier les graphes les plus cosplexes. 


D'autres iaprisantes HF et cospatibles HPIL (voir 

liste précédente! existaient déjà, la nouveauté 

étant eur interfaiage HPIL, La dernière 

veauté est er fait dans le dosaine des 

santes, la THINHJET où H°2225B, japrisente à 

d'encre val , utilisant une nouvelle 

ogie, c'est la preeitère application dans 

tégorie portabie, le riveau sonore est 

fiant, Ja qualite d'ispression proche des 

de texte, elle 1eprine BQ 

Sù db de bruit et a une 

caratères par seconde (cpsi. En 

cospressés", elle va jusqu'à 142 

sa batterie miniature lui 

apriner 200 pages, sais elle possède 

une alisentation secteur, Les caractères ont une 

matrice de 11412 points. Le taspon d'ispression 

perset de séacriser un kilo-octets. Le coeur en 

est la tête d'iapression reaplacable HP92261, Le 

nouveau procédé de vaporisation possède 3 

avantages: 

- l'encre se trouve divisée en particules 

infises, persettant un dosage extrèsement précis 

{on peut s'attendre à l'avenir à voir venir des 
sodèles persettant la quadrichrosie). 

- La vaporisation qui dégage le liquide par une 

pression assure le transfert des particules 

d'encre sur le papier dans un silence absolu 

(C’est la dilatation qui persst la projection de 





l'encre), 

- Cette suppression de la sécanique perset une 
consomation d'énergie qui se résure dans la 
pratique au seul déplacesent de la tête 
d'iapression et à la surchauffe de quelques 
décigraases d'encre pour une page. Si le jet 
d'encre n’est pas nouveau, le principe de la 
vaporisation d'encre, en revanche, l’est. 


Le HP346B4 est un aultisétre numérique 3 chiffres 
1/2 à 5 chiffres 1/2, 5 fonctions à changesent de 
ganse autosatique avec une sensibilité de 
sicrovolt, il perset de répondre aux applications 
exigeantes. Doté de l'interface bifilaire (HFIL), 
il est gérable par calculateur portable HF41 
HP?1B, ... Pour aesurer des tespératures, un 
sodèle HP Jlinéarisera la réponse du capteur et 
inscrira Je résultat en degrés C ou degrés F 
directesent. On peut obtenir des lectures en dbe 
par rapport à une ispédance quelconque. Pour les 
mesures de tolérance sur résistances ou les tests 
de coaportesents, le 41 lou le 71B, ou le 75, ou 
le 85, ...) peut sans difficulté recueillir les 
mesures du 34684, effectuer un calcul de 
pourcentage d'erreur et inscrire le résultat 
directesenten pourcentage. Un systèse 
issédiatesent opérationnel vous est offert, Une 
isprisante où une unité de cassette seront 
peut-être utiles. Vous pouvez sesurer des 
tensions continues et alternatives € 

vräies à partir de 0,3V pleine échelle av 
sensibilité de ! sicrovolt jusqu'à 300Vo 
Cette plage dynasique étendue peraet de détecter 
des signaux de iveau tout en ré 

degré de conditionnement nécessaire 

Les sesures de résistance peuvent être # 
configuration 2 ou 4 fils, avec une gasee 
maxiaale de 300 séga-ches et une sensibilité 
allant jusqu'à { ailli-ohs sur la gasse 300 ohes. 
Vous pouvez utiliser la configuration 4 fils pour 
sinisiser Jles erreurs dues à la résistance 
parasite des cables de liaison ou utiliser la 
configuration 2 fils plus sisple à asettre en 
oeuvre. Le 34684 sesure les courants continus et 
la valeur eficace vraie des courants alternatifs 
jusqu’à 3A. L’étalonnage électronique cosplet est 
très rapide, électroniquesent, sanuellesent où à 
distance. Une fonction SRB perset d'interrompre 
tout progasse. Le HP3468A contient aussi un test 
autosatique, des batteries rechargeables en 
option ainsi que des sondes diverses et cordons 
de test en option, pour utilisations variées 


Deux nouveaux cospteurs de fréquence éconosique, 
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le HPS3644 et Je HPESBSA, offrent des 
possibilités telles qu'une game de fréquence 
étendue, une résolution et une précision élevées. 
une sensibilité d'entrée élevée, et d'isportantes 
possibilités de conditionnesent du signal 
d'entrée, qui font de ces compteurs des 
instruments HPIL idéaux pour de nosbreuses 
applications de test, d'étalonnage, de recherche 
et de développement. La gasse de fréquence est de 
10H: à 225MH2 pour le HP53844 et de 10Hz à 16H2 
pour le HP53854. Parai les caractéristiques 
cossunes aux deux instrusents, on peut citer: 

- Résoiution de 9 chiffres par secondes 

 ISaV eff de sensibilité saxisale d'entrée. 

- un affichage variable de 3 à 11 chittres, 

— un sode d'affichage à distance avec un 
afficheur alphanusérique à cristaux liquides, 
programmable, à 12 caractères, une commande pour 
clavier, sanuellesent par la face avant ou à 
distance à partir d’un contrôleur, le tout dans 
un coffret portable pouvant être sonté en baie et 
espilé, alisenté par batterie interne ou 
alisentation continue externe (9-15), 


Le HPSOUSR est, come beaucoup de satériel dans 
cet article, une presière aondiale quand à son 
inclusion dans un systèse de faible coût et est 
le presier analyseur de signature HPIL. 1] offre 
égalesent deux nouvelles fonctions: signature 
cosposite et méacire de signature, qui font 
gagner du tesps à l'utilisateur dans le dépannage 
sanuel de circuits nusériques. La signature 
composite est la sosse binaire (sodulo 2°16) de 
nosbreuses signatures individuelles. L'opérateur 
gagne du tesps en introduisant une série de 
signatures individuelles avec l'interrupteur de 
la sonde, sans cesser de voir si la signature de 
chaque noeud individuel est correcte. Seule la 
signature cosposite résultante est cosparée au 
résuitat attendu. S1 la signature composite est 
correcte, tous les noeuds individuels sont 
supposés corrects . Dans le cas contraire, le 
dépanneur n’a pas à recontrôler chaque noeud, la 
méaoire taspon de l’analyseur sauvegarde et 
étiquette les 32 dernières signatures 
introduites. Le dépanneur peut exasiner le 
contenu de la pile pour déterainer le noeud 
défectueux. Un systèse de test, par petit poste 
spécialisé,  éconosique et tenant dans une 
mallette est ainsi possible. 


Philippe TENAND 
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LES BUFFERS DÙ HP7i 


Tous ceux qui se sont intéressés de près où de 
loin au FORTH7I ont été intrigués par les aots 
traitent des Buffers. Il est vrai qu sanuel 
du Forth/Assestleur n'est pas très explicite sur 
ce sujet (crosse sur bien d'autres d’ailleurs) 


Notre but, ce acis-ci, sera de conprendre 
l'utilité des buffers, Leur structure, et leur 
gaploi. 

Pour cela, je vous propose quelques petits 
exeaples d'utilisation depuis BASIC. Si Forth 
propose déjà des acts tout préparés 
l’utilisation que j'en fait est plus f 
depuis BASIC, J'ai donc fait un LEX (ADE 

perset de s'affranchir des 3 Ko de FORT 

D'autre part, un fichier LEX peut c 

module  Forth/Assesbleur  difficil 
cospréhension des buffers ne 

ij'espère) Jisitée au heureuw poss 

sodule, 

Mais entrons dans le vif du sujet: 


CE QU'UN BUFFER 7 


Un buffer (itespor en français) est un espace 
séeoire qui sert à stocker des "cho: 

Ur fichier à 

trop rigide. Les var 

{chaines et noebres}. Réserver une zone 

rier qu'à la "chose" reviendrait à gaspiller trop 
d'espace Si la dite “chose” prend soins de place 
que prévu. 


Alors, HP nous à offert une structure très 
dynasique, très souple: les buffers, encore 
appelés les "1/0 Buffers" (Littéralesent: tanpons 
d'entrées/sorties). On peut les créer, les 
suppriser, Les allonger, les rétrécir, et bien 
sur stocker et récupérer des “choses”, 


Ces “Choses”, qui vous irritent depuis le début 
de cet article, ce peut être n'isporte quoi. 
Citons quelques exesples: 

— Le STARTUP est stocké dans un bufffer, Si vous 
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avez essayé de chercher son adresse, VOUS ave: 
peut être constaté qu'elle n'est pas fixe. C'est 
une caractéristique des buffers, 

- Quand vous faites ASSIGMN, le 71 stocke 
queiques inforsations dans le FIB, qui est un 
butfer, 

- Le jeu de caractères défini par CHARSET est 
dans un buffer. 

Etc... les exesples ne sanquent pas. Vous pouve 
utiliser auser (et surtout) les buffers pour vos 
besoins propres, comme je fait le sodule MATHS 
par exeaple. 


Toutes ces "choses" ont un point cosaun: il 
s’agit de données tesporaires, destinées à être 
détruites ou reaplacées à plus ou soins longue 
échéance. D'autre part, elles n’ont pas de taille 
fixe, 

Ce sont là les caractéristiques principales de 
ces 1/0 Buffers, Voyons aaintenant leur structure 


STRUCTURE DES BUFFERS 


Les buffers sont placés à la fin des fichiers en 
séaoire principale. Chaque Buffer est repéré par 
son ID tIdentificateur). Attention: cela n’a rien 
à voir avec les 1D de fichiers LEX. Pour accéder 
à un buffer, par le biais des routines systère où 
de la fonction ADEUFS, il faudra donner son 
musére d'identification exeapie  BÜR en 
hexadécisal pour STARTUF), 


Adresses basses: 


Buffer précédent 


En tête du buffer 
n Noire d'adresses à réactualiser 
jii Identificateur (en hexadécisal 
11 Longueur de la zone des données 
Zone des données 
La "Chose" 


Buffer suivant 


Adresses hautes 





Un buffer peut servir, entre autres choses, à 
stocker des adresses. ÛÜr, quand on efface un 
fichier, par exemple, toutes les adresses ont 
changé. Et celles qui sont dans les buffers ? 
Mais oui, elles ont changé aussi. 

C'est le rôle du quartet "n° (nombre d'adresses à 
réactualiser), Quand on stocke des adresses dans 
le buffer, si on veut qu’elles soient 
réactualisées quand la aésoire “bouge”, on set le 
quartet n au nosbre d'adresses, Le aax est 15 
adresses. Au delà, il faut utiliser un autre 
buffer. 





iii sont les trois quartets qui codent le numéro 
d'identification. 


111 est la longueur en hexadécisal de la zone des 
données, L’en-téte n’est pas cosprise, de telle 
sorte que Ill est nul pour un buffer vide {mais 
dont l'en-tête existe). La longueur aaxiaue d’un 
buffer est de 4095 quartets (2047 octets). 


Enfin, nous avons la "zone des données”. Cette 
zone est à la responsabilité de l'utilisateur. 
Chacun organise cette zone conse il l'entend. 
Pour les buffers utilisés par le système, il faut 
se reporter au chapitre 12 des IDS Noi pour avoir 
les foraats utilisés, 


CONFIGURATION ET BUFFERS 


Les buffers, nous l'avons dit, sont destinés à 
des stockages tesporaires. Tellement tesporaires 
que le systèse essaie de les détruire à chaque 
aise sous tension, 

C'est ce qu'on appelle la "configuration": à 
chaque destruction, copie de fichier, à chaque 
allumage, le 71 fait le ménage (il répertorie 
tous les fichiers LEY, reset toute la aéaoire en 
ordre, etc...). En particulier, pour chaque 
buffer, il positionne le bit de poids fort de 
1'ID à 0. En fin de configuration, il détruira 
tous les buffers pour lesquels ce bit est 
toujours à 0. Vous avez donc cospris que pour 
conserver un buffer (CHARSET par exesple), il 
faut settre ce bit à 1 avant que le systèse ne 
détruise tout. Ceci se fait en interceptant le 
poll pCONF6, et en resettant ce bit à 1. Voilà, 
le tour est joué. 





Conséquence directe de ceci: les nuséros d’ID ne 
peuvent aller que de 800 à FFF. 

Autre conséquence directe: une application 
cosplète des buffers ne peut être faite en Basic 
qu'à condition de se forger des outils LEX. 
Forth, quant à lui, peraet de préserver les 


. buffers. 


ROUTINES UTILES 


Pour utiliser les buffers en assembleur, il faut 
avoir à sa disposition quelques routines du 
systère. 

I/OFND perset de localiser un buffer dont 1’1D 
est dans C(X). En sortie, on à D pointant sur la 
zone des données, A(A) contenant la longueur, si 
la retenue est à 1. C’est la routine utilisée par 
ADBUFS. 

J/0ALL crée un buffer de taille donnée en B(A) et 
d’ID donné en C(X). Si la retenue est à 0, il n°y 
avait pas assez de place. 

1/0DâL: inverse de la précédente routine. Dans 
CO) devait se trouver 1’1D. Si la retenue est à 
0, le buffer n’a pas été trouvé. 

1/0C0i: Reset à 0 la longueur du buffer dont j’1D 
est dans CiX). S'il n'existait pas, (retenue=0), 
il est créé avec une longueur nulle. 

I/0EXP et I/OCON  élargissent et réduisent 
respectivesent la taille du buffer dont l’ID est 
dans C{X), et d’un nombre de quartets B(A). 

Enfin, I/ORES sert à settre à 1 le bit de poids 
fort de !*ID. Utile pour la configuration. 


de tiens à préciser que ces renseignements ne 
sont que partiels. I] faut lire les 1DS No?, 
chapitre 3 pour avoir toutes les inforsations 
utiles. : 


EXEMPLES 


Ces  exeaples sont écrits en Basic et 
nécesssitent, pour fonctionner correctement, les 
fonctions ADBUFS, REVS, KEYNAITS et HTA$ décrites 
dans le nuséro précédent (JPC No 22: Mars 85). 


La fonction ADBUF$ renvoie l'adresse de l'en-tête 
du buffer {et non du début de la zone des données 
cesse en Forth), ou la chaine nulle si le buffer 
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spécifié n'existe pas. 
L'1D du buffer est en hexad 

Presier exemple: iapression de la zone de données 
d'un buffer, 


10 DESTROY 1$ 
20 DIM ISESJ,L 
30 INFUT "Buffer id ? ";1$ 
- Si le buffer n'est pas trouvé, on arrête là 
à IF NOT LENADEUFS(1#)) 


Ô PRINT PEEK$(DTHS (HTD (ADEUFS (15) }+1880+7),B0) 
80 PRINT 

90 NEXT 1 
100 PRINT PEEKS(DTHS (H UF${1$))+1480 


Deuxiène  exeaple: lire le ST 
éventuel jerent le sodifier. 


10 DIN A$IS),58196) 
26 A$=ADBUFS (' 808) 
- Si il n'y a pas de STARTUP, on arréte là. 
30 Je NOT LEN(A$) TREN 60 
ueur du buffer en quartets. 
40 LERTDIREVS(PEEKS (AS, 7)05,71)) 
- 5$ contien représenta SCII de la zone 
buffer, 
TASIPEEKS (AS, L+5)[81) 
iche, on modifie éventuellesent, 
“Startup *,54;5$ 
- Et on le reset. 
70 STARTUP 5$ 
80 END 


Le dernier exeaple est réservé aux mesbres du 516 
Saturn Interest Group}: Il s’agit de faire un 
catalogue (sisilaire à CAT ALL), sais pour les 
fichiers LEX, 

En effet, le buffer d'ID "BFC est le "LE Entry 
Buffer”, c'est à dire un buffer qui contient les 
adresses des "Main Table” de tous les fichiers 
LEX présents en aésoire. 

Une fois le Oprograane lancé, les touches 
suivantes sont redéfinies: 

[vis LEX suivant 


°J: LEX préc 

3}: affiche l'adresse de la "Main Table” 

(J: revient à l'affichage norsal 

oute autre touche teraine le progranse. 

“affichage noraël I O7CtkC2A" 
qui veut dire: L EF en hexadécinal (235 
décisall, qui comporte les tokens de 7 à 24 

{en hexadéciaal}. 

Une pression sur [)]) entraine l'affichage de 

“Main Table: A407F*, pour dire que la table 

principale est en A407F (on peut toujours rêver !} 


[ 
[ 
L 
T 


23,KSL4, LI 


LDTHECHTDIADEUFS (BFC ))-441811), 11) 
0 He=REVE (LS, 2) 
37 2 3STRS(HTD HS); TAB(S); 

CtkC 3REVSILSIS, 671 


106 IF K8=°450° THEN I=I-UI#1) € GOTD “BOUCLE” 
110 IF KSH#51" THEN PUT K$ € END 

126 IF Lé[1,218°00 THEN I=141 

136 6070 BOUCLE” 

HO IMAGE “ID 4,2A,"/",3D,2X, 28, "CRC, 2 


cül 
vous avoir bien expliqué cossent 
les buffers. Je souhaite ardengent 


inesent vos réalisations dans ce 
ndant de vous cospter parai les 


À bientôt 
Pierre DAVID {516 #1) 


Interception de POLL, 





- Microprocesseur de Hotel Papa sept unité, ae 
recevez-vous ? 

- Hotel Papa de aicropro, je vous reçois 5 sur 5, 
à vous. 

- Signal POIL en approche, denande autorisation 
d'interception. 

- Autorisation accordée, passez en assesbleur et 
exécutez votre aission. 

- {plus tard) Mission effectuée, POLL intercepté. 
Hotel Papa pour quitter la fréquence. 

- Terriné. 


Non, vous ne rèvez pas. Cet échange de messages 
pourrait bien avoir lieu dans un HP 71. En effet 
à l’aide de volonté, et à force de Mesory Lost, 
Nous y soases arrivé: nous avons intercepté un 
POLL, 

Tout d’abord, peut-être serait-il bon d'expliquer 
ce qu'est un POLE ? 

Eh bien, il s’agit d’une sorte de petit aessage 
que certains fichiers LEX envoient à l’intention 
de leurs sesblatles, pour leur faire savoir 
qu'ils peuvent intervenir. Voici une explication 
sisple de la chose: les personnes ne possédant 
pas la RON Forth/Assesbleur peuvent effectuer un 
ordre LIST sur un fichier TEXT. 11 en résultera 
une erreur: “Type non valide*{merci FRALEX. 
Notons au passage que FRALEX est un iamense Poll 
Handler) , En revanche, pour ceux qui possèdent 
la RON sus nosmée, cet ordre fonctionnera 
partaitesent et listera sans problèse le fichier. 
Que se sera-t-il passé ? La RON Forth 
possède. He une fonction LIST qui prend le 
dessus ? Non, elle ne contient qu'une extension 
de l'ordre aux fichiers TEXT. Mais, lorsque l’on 
tente d'exécuter un ordre LIST sur un fichier non 
BASIC, la aachine envoie un POLL vers TOUS les 
fichiers LEX présents. EDTEXT en est un; donc 
s'aperçoit de l'erreur et prend le contrôle de la 
machine, peraæettant ainsi l'exécution du listage. 
1 existe ainsi une soixantaine de POLLS qui sont 
envoyés à différents aosent au cours de la vie 
d’un HP 71, L'un de ceux-là à pour nos pVER$. 11 
est envoyé à chaque éxécution de VER$, donnant la 
possibilité à tous les fichiers LEX de faire 
parler d'eux, C’est ainsi que son HP71 s'affiche 
le sessage suivant lorsque j’effectue VERS: 
HP71:1BEBB FRA29S FRAOOI FRA240 HPIL:1A FTH:1A 
EDT:A KBD:B MATH: IA 


de se suis ais l’autre jour à chercher consent 
chaque fichier LEX répondait. Et j'ai trouvé. Et 
cela donne le Poll Handler qui suit et qui peraet 
de faire afficher à la esachine le aessage 
“ISTRIA" lors de l'appel de la fonction VERS. 


Laurent ISTRIA (PPC-PC 45, SIG #5) 


*POLL* 
1 ED 
M6 © 
POLL POLHND 
ENDTIT 
pVERS EGU #00 
POLHND 


SETHEX 
P= ü 
LC(2)  pvERs 
28€ EB 
GOYES CONFIS 
RTNSIN 
CONFIG 

CRSEX 

Di=C 

A°R2 

Di=Di- 14 

CDIEX 

28 À 

GOYES SUITE 

CDIEX 

CRSEX 

RTNSXM 
SUITE 
CDIEX 
P= Ô 
LEASC ? ISTRIA' 
P= 5 
DATI=C WP 
CDIEX 
CR3EX 
CDIEX 
RTNSXH 
END 
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REFLACES 


Voici encore un petit LEX d'ID #5C,08. Pour 
parfaire le LEX D , ii manquait une fonction 
alphanuaérique. 


REFLACES 1A$,B$, CS, CHRS EN) 
Respiace dans A$, tous les B$ par des C$. Le 
dernier parasètre est optionnel, il définit un 


caractère "joker" dans la chaîne B$. 


Exeaple: REPLACES *PPC-PARIS CHA °P°," tp") 


donne : "{p}(p)C-(p}ARIS CHAÏpITER" 


REPLACES ("HF-71E",".P*, "Hewlett-Packard", ".*) 
done “Hexlett-Packard-71E" 


Ceci est une fonction identique sais siaplifiée 
à la cossande (R) reaplacesent de l'éditeur de 
texte du sodule Forth/Assesbleur. Seulesent cette 
fois-ci: elle est prograsrable ! 

Vo avec l'article sur les chaînes, un autre 
exespie de manipulation alphanusérique sur ja 


Math-Stack, 


Heureuse Frograssation 


Michel MARTINET (P#12, SIG82) 


LEX  “REPLACE’ 
ID #ic 

KE © 

POIL 0 
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42F 
40944 


ENTRY REF 
CHAR #F 

KEY  ’REPLAL 
TOKEN 8 
ENDTAT 


2820 
RTNYES 
D0=D0- 


GONC  Egale 
EOVLRE AFS 


AaaSs 


GOYES ârgerr 

EP 2 
TE 

Rü=C 

D1=DI+ 2 

EONC REPC 


C=RS 
286 À 





GOYES Test? 
240 À 
GUYES Expi 
GOTO Exp 
?4=0 À 
GOVES Exp 
RTN 


Expr 


CDIEX 

Di=(5) AVES 
B=DATI À 
Di=C 

RTK 


P=P+1 
C=P 2 
RO=C 


GOSBVL POPIS 
CDIEX 

RAC 

C=C+h À 
Di=C 


GOSEVL POPIS 
CDiE 

C=C+h À 
Di=C 

R3=À 


GOSBVL POFIS 
GOSUB Test 
CDIE} 

R2=C 

C=C+A 

D=C 

C=0 

RI=C 

C=RO 

RC 

CDOEX 

ESL 

EsL 

est 


TesthE 


Es X 
RO=C 


ARS 

CER2 

BC À 
[=D À 
C=C-B À 
JA À 
GOYES Stki 
[=D À 
DO=C 

C=R2 

Di=C 
Di=DI- 16 
ESRS 

BC À 
GOSUB Egale 
28 À 
GOYES Stki 
C=R4 

Di=C 
Di=Di- 14 
C=DATI À 
Di=D1- 2 
CDIEX 

RERI 

C=C-A À 
CDIEX 

AC À 
C=R4 

C=C+A À 
CDGEX 

=A À 
GOSUE A=AVAS 
GOSUE Stk 
CRI 

D=D-C À 
BONC StkC 


BOSUB  A=AVHS 
[=D À 
D0=C 

ESRI 

BC À 
C=R4 

C=C-B À 
Di=C 

Di=D1- 16 
LC(S) 2 





JPC nr 23 pageSS 


Fin 
TestÂE 


En dernière ainute, Stéphane BARIZIEN nous 8 fait 
parvenir ce fichier LEX, 


FILE? (non de fi donne 
Lsi le fichier est présent er sésoire 
ÿ sinon. 


Stéphane BARITIEN (816 4°) 


BSERR 409558 
FILEXO$ EOU 409895 
FINDF EQU  #09F7 
EXPR EQU  #0F23C 


NIBHEX 411 
CDGEX 


RSTK=C 
GOSBVL FILEXOS 
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BONC  Fspce 
7h80 N 
GOYES OK 
GOVLNG BSERR 


CDIEX 
RSTK=C 
GOSBVL FINDF 
A0 NN 
GOC RIN 
AA S 
ASR k 
C=RSTK 
Di=C 
Di=Di- 16 
DATI=A N 
CERSTK 
D0=C 
GOVLNG EXPR 


PEEK POKE PARTOUT (5.1.6) 


Voici, en attendant la fonction MNEND$(A$), (on y 
cosprend rien, vraisent rien !) un petit LEX d’ID 
01 - TOKEN 63/64 qui ne sont autres que les 
fonctions PEEK$ et POKE du HP71B. Avec ce LEX 
dans la maéaoire de Titan, vous “Peekerez" et 
“Pokerez" où vous voudrez dans toute la séaoire 
100000 à FFFFF). 


Exeaple: 

SUB DEPRIVE (A$) 

POKE DTHS (HTD (ADDRS (A$) ) +20), "00" 
END SUB 


Avec PEEKS, ADBUFS et PDKE, nous avons les outils 
du parfait "Bidouilleur" (Sig’san). 


SIGesent vôtre 


Laurent ISTRIA, Michel MARTINET et Pierre DAVID. 
S16 43, #2 et #1 ... Brand New !!! 


SATURN Interest Group. {5,1.6. & Co. Ltd.} 


{c) - Copyright PPC-Paris 03/1985. 


BIP TOUT LE TEMPS ! 


Si vraisent vous ne savez plus quoi faire pour 
esbêter votre entourage, j’ai ce qu’il vous faut ! 
Assesblez Je petit LEX que je vous propose, et je 
suis sûr qu’on vous settra à la porte en moins de 
tesps qu’il faut pour le dire... 


Le but de ce petit fichier, donc, est de faire un 
petit BIP à chaque pression de touche, 

Rien de bien excitant, si ce n’est la facilité de 
réalisation {et encore !). 


J’explique, pour ceux qui trouveraient ceci 
encore trop difficile: 

H suffit d’intercepter le poll “Définition de 
touche”. Chaque fois que vous appuyez sur une 
touche, vous ne vous en rendez peut-être pas 
compte, sais ce satané HP71 fait le tour de 
chaque fichier LEX présent en méaoire, en 
desandant si on veut redéfinir la touche, En 
théorie, cela sert surtout pour des touches 
telles que SST, BACK, -CHAR .. qui ont une 
action jissédiate, et ne correspondent pas à un 
ordre BASIC. 

On redonne ensuite la sain à Basic, en disant 
n'avoir rien fait (XM=0). Ni vu, ni connu etc... 


Le prograsse Se contente donc d’intercepter le 
sus-dit poll, puis de faire un beep à 1000 Hz 
pendant 32 sillisecondes. C’est tout ! et c’est 
très énervant. Tellesent énervant que je se 
desande si je ne vais pas purger ce fichier. Car 
en plus, il ralentit le fonctionnesent du tout ! 
Mais oui. Heureusesent qu’il y a BEEP OFF. Ouf... 
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À bientôt 
Pierre DAVID (516 #1) 


ATTENTION ! 


De plus en plus fort ! 

Vous avez peut-être vu fleurir dans les 
progranses Basic quelques affreux POKE 
"2F441","F" et PDKE *2F441°,°*0". Vous avez 
certainerent pesté contre le sanque de lisibilité 
de cette syntaxe. 

Heureusement, nous arrivons à point pour vous 
délivrer de ces angoisses Basikéennes. Nous 
proposons à votre sagacité habituelle LE aot 
“ATIN", 

Sous trois forses différentes, il éclaircira vos 
programmes aieux que ne saurait le faire l’étoile 
la plus brillante au firsasent, (snif !) 


Plus prosaiquesent: 

ATIN OFF désactive la touche ATIK en mode 
programae. Attention, elle est active durant les 
ordres INPUT et LINPUT, 

ATIN ON reset les choses en place. 

Et enfin, devant vos yeux ébahis, nous révelons 
pour vous, en exclusivité pour vous et vous 
seulesent l’existence de ATIN (tout sisplesent), 
qui a pour effet de passer d’un aode à l’autre. 


Heureuse Bientôt, 
et à Prograssation ! 


Pierre DAVID et Michel MARTINET 
SIG #1 et #2, PPC-PC #37 et #12 
Saturn Interest Group 
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MANIPULATION DES CHAINES ALPHANUMERIQUES 
SUR LA "NATH STACK" DU HP71B 


Durant 1l’exécution d’une fonction, ses parasètres 
sont placés dans un endroit de la sénoire appelé 
Math Stack où les opérations se déroulent lorsque 
le système exécute une fonction BASIC. 


La représentation interne des chaînes 
alphanumériques y est assez singulière, en effet 
tout est sens dessus-dessous. Les octets sont 
représentés à l'envers et les chaînes sont tantôt 
dans le bon sens tantôt dans le sens inverse. 


Exesple: avec le aodule FORTH/ASSEMBLER, lorsque 
vous exécutez PEEKS(*E7BB0",12), vous obtenez le 
résultat suivant: 2545F43585D4, En clair, nous 
nous trouvons dans la table de codage des 
anésoniques du sodule F/A et cela signifie 
RTNSXH, 25 pour R (52 en hexa), 45 pour T (54 en 
hexa), ..., D4 pour X (4D en hexa). Les quartets 
sont inversés deux à deux sais la chaîne est dans 
le bon sens. Jusqu'ici, tout va bien, il suffit 
de savoir que les octets successifs représentant 
les chaînes sont codés à l'envers et le tour est 
joué: nous sommes alors capables de cosprendre 
toutes les chaînes alphanueériques 5e trouvant 
dans la mésoire de notre Titan préféré. 


Sur la Math Stack, l’inversion des quartets deux 
à deux est la aëse sais de plus, la chaîne est 
entièresent inversée. Le presier caractère se 
trouve en dernière position et le dernier au 
début. 


Exeaple: la aêse chaîne y serait représentée sous 
la Oforse D48535E44525 soit “MISNTR®. Vous 
comprenez aisésent la facilité avec laquelle nous 
nous sommes sis à faire de l’assesbleur au Club. 


LA MATH STACK: 
Les chaînes y sont codées en deux parties, la 
presière de Jlongueur fixe (lb quartets) 
représente l’en-tête et la deuxièse la chaîne 
proprement etid. 


L’en-tête: les 186 quartets sont divisés en 4 





parties. Le préfixe FO (2 quartets), toujours 
égal à Ilui-sêse, la Jongueur de la chaîne en 
quartets 11111 (5 quartets), l'adresse de la 
chaîne s’il s’agit d’une variable alphanusérique 
aaaaa (5 quartets) et enfin la longueur maxi de 
la chaîne s’il s’agit là aussi d’une variable 
alphanusérique snas (4 quartets). Notez enfin que 
sur Ja Math Stack, seuls le préfixe et la 
longueur de la chaîne sont utilisés, 


Exesple: la chaîne "ABCDE" 
VOIR FIGURE (1) 


La chaîne: est codée à l'envers cosse décrite 
précédessent. Noter qu’une chaîne nulle est tout 
de aèse représentable: 

1 F0 : 00000 : aasaanene : 


NANIPULATION DES CHAINES AVEC L’ASSEMBLEUR 
Définition du nosbre de parasètres de la fonction. 


Avant d’exécuter une fonction, le HP71B étudie, 
le nosbre et le type de parasètres que celle-ci 
adeet, et place dans C(S) (chaep $ du registre Ci 
le nosbre exact de parasètres se trouvant sur la 
Math Stack Jorsque la fonction adset des 
parasètres optionnels, 


Type 


tableaux (utilisé en addition avec 4 ou 8) 
paranètre numérique 

tableau alphanunérique (4+2) 

parasètre alphanueérique 

tableau nusérique (8+2) 


Exesples: la fonction PEEK$ adset 2 paramètres, 1 
alphanusérique et 1 numérique. Ceci est codé 
cosse suit: 


PEEKS(AS, N) 


NIBHEX 8422 

8 parasètre nunérique 

4 parasètre alphanusérique 
2 nosbre aini de parasètres 
2 nosbre aaxi de paramètres 


POS(AS,B$,N) 


NIBHEX 84423 

8 parasètre nuaérique 

4 parasètre alphanuaérique 

4 parasètre alphanusérique 

2 nosbre sini de parasètres 

3 onosbre saxi de parasètres (1 optionnel, 
C{S)=nosbre exact de paranétres) 


KEYWAITS 


NIBHEX 00 
© nosbre mini 
© nosbre maxi 


Exesple: la fonction ASC$(A$) (voir JPC Mars) 


NIBHEX 411 

Le point d'entrée de Ja fonction se trouve au 
label ASCII. Avant d'exécuter la suite des 
opérations, le HP7IB étudie le nosbre de 
parasètres que celle-ci adset en resontant en 
avant du point d’entrée. Le premier 1 renconté 
définit Je nosbre aaxi que peut accepter la 
fonction. Le deuxièse le nosbre mini et le 4 
définit un parasètre alphanumérique. Le HP7IB 
place les parasètres sur la Math Stack et Di 
pointe le début du presier d’entre eux. 


ASCII CDIEX 
Sauvegarde de la valeur de DI (adresse du sonset 
de la Math Stack) en échangeant Di avec CIA) 


DI=C 
Restitution. 


CDEX À 
Echange de CiA) avec D(A), le registre D n’est 
pas utilisé par la suite, on y sauvegarde Di. 


GOSBVL POPIS 

Au retour de la routine POPIS, A(A) contient la 
longueur de la chaîne en quartets, P=0 et Di 
pointe la fin de l’en-tête (le dernier caractère 
de la chaîne Di=Di+ 16). 


ASCII1 240 À 
GOYES ASCI14 
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Si la longueur de la chaîne est nulle, il est 
inutile de continuer: on branche en ASCI14. 


C=DATI B 
On charge dans C(B) le dernier caractère de la 
chaîne (eaplacesent du pointeur D1). 


BCB 
Recopie dans B(B) pour comparaison. 


LEASC ?* ? 

CN) 5 5 xxxxxxxxxxxx7E20 ! 

"eCHRS(126) et * “=CHRS(32). On charge dans C à 
partir de la position du pointeur P les deux 
extrêses des codes ASCII pour cosparaison avec 
B(B). 


?ECB 

GOYES ASCI12 

Si B(B)<"20", on ve en ASCII2 pour resplacer le 
caractère par un *.* 


CSR A 
CU) =: xxxxxxxxxxxOx7E2 


CSR À 
CU) = 1 xxxxxxxxxxx00x7E 


BC B 

GOYES ASCIIS 

Si B(B)(="7E", BIB) est un code ASCII, on va en 
ASCIIS pour continuer avec l’avant-dernier 
caractère de la chaîne. Autresent on reaplace le 
caractère par un ‘." (Label ASCII2 suit 
iesédiatesent). 


ASCI12 LEASC ”.” 
Charge 2F à partir de l’esplacesent du pointeur. 
CON) à 5 wxxxxxxxxex00x2F 1 


DATIC B 
Le dernier caractère de la chaîne (pointé par Di) 
est resplacé par ".". 


ASCIIS DI=D{+ 2 

On incrésente le pointeur Di de 2, il pointe 
alors l’avant-dernier caractère de La chaîne sur 
la Math Stack. 


A=A-1 A 
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ï 
ï 
3 
: 
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ï 
: 
: 
: 
3 
: 
ï 
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A=A-1 À 

GONC ASCII 

Décrésentation de la Jlongueur de la chaîne de 2 
quartets et branchement pour test suivant. 


ASCII4 CDEX À 

Dit 

BOVLNB EXPR ‘ 

Restitution de Di (valeur sauvegardée en début de 
programe dans D(A)) et branchesent à la “ Main 
Loop" BASIC (EXPR). 


Routine POPIS: 


A=DATI 7 
AU) =? xxxxexxxxl1lllOF : 


P= 0 
P=0 : P pointe F dans À (A(0)) 


A=A+#I P 
AUD = 3 xxxxxxxxx1111100 : 


R=AtA B 
AUN) =? exxxxxxxx1111100 : 

2840 BE 

GOYES Err 

Si A(B)#0, nous ne sosses pas en présence d’une 
chaîne, on branche en Err qui renvoit l’erreur 
“Data Type” à BASIC. 


ASR N 
AU) = 3 Oxxxxxxexx111110 ? 


ASR N 

AN) = 3 OOxxxxxxxxx1111l ! 

AUA) contient saintenant la longueur de la chaîne 
en quartets. e. 


Di=Di+ 16 

Incrésentation de Di, D1 pointe maintenant le 
dernier caractère de la chaîne se trouvant sur 
Math Stack. 

RTNCC 


Err GOVLNG CNFLCT 








Voilà, un article 






later si cela est 



















FIGURE (1) 


{adresse basse) 


REVPOP EQU 
ARGERR EQU 
DRANGE EQU 


du HP71B. Pourquoi n’ouvririons-nous pas une 
rubrique sur SATURN en sous exposant autuellenent 


Michel MARTINET (P#12 E1682) 


parasètre suivant : FO : A0000 : aaaa: 


explicatif" sur l’assesbleur 


du déjà vu) tout nos travaux ? 


3 5444342414 ; parasètre précédent 









#0BD31 4 REVS et POPIS 
#0BF19 4 Renvoie l’erreur “Invalid Arg" 
418076 #4 Teste si un octet est dans l'intervalle [0..9] 








JPC 





Creer ï fadresse haute) 
En-tête Chaîne 
1) î î ï 
Préfixe 
3 = ï ï i 
Longueur 
: ï i<—— x ï 
Adresse et Longueur saxi (non utilisées) 
: ï i 1 00020 : 
EDCBA 
*PKLEX 
#01 
0 
0 


nr 23 pase4i 


CONVUC EU #152AA 9 *CONVert to Upper Case” 

RANGE © EQU #1B07C 4 Teste si un octet est dans un certain intervalle 

POPIR EQU #40E8FD # Teste un nosbre réel sur la math stack et renvoie une erreur si non. 
FLTDK EQU #1B223 # Convertit un nosbre sur 12 chiffres en un entier Hexa. 
HEXASC EQU #17148 4 Convertit de l’Hexa en Ascii. 

EXPR EQU #0F23C 8 Point de retour des fonctions alpha. 

REVS EQU #1IB3SE 4 Inverse une chaîne sur la pile. 

F-R0-0 EQU #2F89B $ RAX réservée, Zone “scratch* pour les fonctions 

F-RO-1 EQU #2F8A0 9 Dito sais 3 octets plus loin 

STRHDR EQU  #0FO9A 4 “String Header” 

NXTSTH EQU  #0BA48 4 “scan to NeXT STate*ent/juap to BASIC loop* 

S-RO-0 EBU #2F871 #4 RAM réservée, zone "scratch" pour les ordres Basic. 
POPIS EQU #0BD38 4 Déjà vue 

FIXDC EQU 405493 $ “Expression list deconpile" 

POKEP EQU 40378 4 Routine d'analyse de l’ordre PDKE 

EXPEX- EQU #0F178 4 Evalue l'expression 

TFORN EQU #2F59%E 4 RAM:Zone de sauvegarde du pointeur de pile (Math Stack) 
EXPEXC EBU #0FI8b 4 Evalue l'expression (pas la sêse) 


ENTRY PEEK 
CHAR #F 
ENTRY PO 
CHAR  #D 


KEY  ’PEEKS’ 
TOKEN 

KEY 

TOKEN 


ENDTIT 


REL(5) POKEd 
REL(5) POKEp 
GOSBVL EXPEC 
GOSUB Addrck 
DI=(5) S-R0-0 
AB À 
DATISA À 
D0=D0+ 2 
GOSBVL EXPEX- 
GOSBVL POPIS 
Ps 5 

A0 P 

Ps 0 
ASRB 

D0=(5) S-R0-0 
CA À 

DC A 
R:DATO À 

DIA 
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D0=(5) TFORN 

A=DATO A 

DO=A 

D=D-1 A 

GC  POKE2 

D0=D0- 2 

C0 5 

A=DATO B 

6OSUB Aschex 

&B A 

DATISA 1 

Di=DI+ 1 

GONC POKE! 
POKE2  GOVLNG NXTSTM 


POKEd GOVLNG FIXDC  # FIXDC: routine de décompilation des ordres : PRINT, DISP 
GPOKE, FIX, SCI, ENG, FLAG, DELAY, NAIT, INPUT et READ 


POKEp GOVLNG POKEP #4 POKEP: routine d’analyse de l’ordre POKE (celui de HP) 


# ADDRCK est une routine interne de la version HP71B:1BBBB, Adresse: 1C585 

4 Ce point d'entrée n’est pas supporté, c’est-à-dire que les sodifications 
Yultérieures peuvent altérer cette adresse dans de futures versions (ICCCC etc.). 
4 Pour là cospatibilité, nous avons inséré la routine “Addrck* 


Addrck GOSBVL REVPOP 
C=0 À 
LCHEX A 
2RL À 
GOYES Err 
C=A A 
PC 0 


æ 


= 


æ 


Co 


= 


GOSUB Aschex 
280 B 
RTNYES 
EONC  Adér 


ne 0 00 0e 0 00 0 0e 0 00 0e + 0e 


BOVLNS ARGERR 9 Comaun à ADDRCK et ASCHEX 


JPC 
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# routine Acshex, non supportée par Hewlett-Packard. 
4 Adresse 1CSE3 dans la version :1BBBB 
# Voir ADDREK. 


Aschex BOSBVL LRANGE 
600 AH 
ATHI  BSL N 
B=A 
ASR 
SR 
RIN 


8 


GOSBVL CONVUC 
LEASC ?FA’ 
GOSBVL RANBE 
60C Err 
LCHEX 37 
AA-C E 
GONC ATHI 


ï 


3 
t 
1: 
t 
3 
î 
: 
3 
1 
4 
î 
4 
t 
3 
t 
t 


NIBHEX 8422 
GOSBVL POPIR 
Di=Di+ 16 
CDOEX 

D0=(5) F-R0-0 
DATO=C A 
GOSBVL FLTDH 
GONC Err 
CA À 
C=C+C À 

G60C Err 
RO=A 

GOSUB Addrck 
CDIEX 

D1=(5) F-RO-1 
DATI=C A 
C=RO 

DC À 

AC À 
C=C+B A 
RI=C 

CB À 
RO=C 

AAA A 
D1=(5) F-R0-1 
C=DATI À 
DI=C 

CA A 
GOSBVL STRHDR 
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A=RO 

DÔ=A 

D=D-1 À 

GC  PEEK2 
C0 S$ 
A=DATO 1 
GOSBVL HEXASC 
DATISA B 
D1=Di+ 2 
D0=D0+ 1 
GOTO PEEKI 


ESRI 

DI=C 

Ps U 
GOSBVL REVS 
D0=(5) F-RO-0 
C=DATO À 

DO=C 

GOVLNG EXPR 


END 


PKBEEP” Key BEEP . Pourquoi pas ? 

asc Ca ou un autre. 

0 

POLHND C’est ce qui fait l'intérêt de ce LEX 
Aucun aot clef 


pKYDF ip Poll “KeY Definition" 

BP+C #0EB40 Routine Systèse pour biper 

Freq #5E8 Fréquence (1000 Hz) 

Duree 420 Durée. Vous pouvez essayer la valeur que vous voulez. 


POLHND LC(2) pKYDF  C(Bi=No du Poll qu’on tente d’intercepter 
28€ B Si c’est celui là, 
GOYES POLL on le prend, 
RTNSXM sinon, on ne fait rien. 


E=D À Tout le travail du prograsse 
R3=C est de sauver les bons 
SETHEX registres, et de les 

P= ( remettre après. 

LC(S) Freq 

EC A 
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JPC 


LC(5) Duree 

GOSBVL BP+C Beep de durée C{A), de frequence DA). 
C=RS On reset les bonnes 

DC À choses à leur place, 

RTNSAN et on revient, 


Voila, c’est fini ! 


"ATINLEX” 
In asc 
HS 0 
POLL 0 


ENTRY ATTNe exécution de ATIN 
CHAR Ordre, exécutable au clavier, légal après THEN ELSE, prograssable. 


KEY 
TOKEN Pourquoi pas celui-là ? 


ENDTXT 


EQU Token (code) de "ON* 

EQU  #E! Token (code) de “OFF* 

EQU #2F441 ATEN DISable: un quartet non nul espêche ATIN de tout stopper. 
EU  #0BA48  Achève l'exécution de l’ordre, et revient à Basic. 

EQU #02C2A Teste si la chaîne entrée contient un code contenu dans une table. 
EQU 403172 Reset Di à sa position initiale, 

EQU © #023E3 ON G0TD suivant une table, 

ESU #05470 Routine de décospilation de DROP et ADD. 

EQU #052FC Routine de décospilation de TRACE. 


REL(S) ATINd Adresse de la routine de décompilation. 
REL(S) ATINp Adresse de la routine d'analyse. 


ADIEX Sauvegarde D! dans À 

Di=(5) ATNDIS 

C0 S$S C{S) contient la valeur à settre dans ATNDIS 
B=A À On sauvegarde Di dans BA) 

A=DATO B A(B)=token suivant ATIN 

LCI2) tON 

AC B Si c’est ON 

GOYES A0 on set 0 


C=C#1 B CUBI=tOFF (en fait: (tON)+#1) 
RC B 
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GOYES AF Si c’est celui-là, on set F 


C=DATI P Sinon, on agit conse une bascule. 
240 P et si AINDIS # 0 alors 
GOYES A0 on aet 0 


: À ce point, il faut se souvenir que C(5)=0 (n’a jamais été aodifié). 
SETHEX 
E=C-1 5 Ruse: C(S)=F (et 13 retenue vaut 1) 
DATI=C 5 ATNDIS €- C5) 
AE À 
ADIEX On restore Di 
GBOVLNG NXTSTM Et on revient à BASIC. 


GOSBVL MRDSCN Teste la chaine entrée, 

CON (2) tON si c'est ON, 

REL{3) Rec on va en Rec, 

CON(2) tOFF si c’est OFF, 

RELI3) Rec on va en Rec, 

NIBHEX 00 Fin de la table. 

BOVENS RESPTR Si ce n’est a de ceux-là, on repasse le contrôle à Basic, avec une 
ÿ erreur Si aucun autre LEX n’a reconnu ce qui suit. 

RTNCC Retour à l’interpréteur, tout est Dk. 





GOSBVL FINDA <=) ON GOTO 

CONI2) tON Si c'est tON, 

REL(3) tracdc on va en tracdc. 

CON{2) tOFF 

REL(3) tracdc 

NIBHEX 00 Fin de la table, 

BOVENG DROPDC routine de décospilation de ADD et DROF. 


GOVLNE TRACDC routine de décospilation de TRACE. 


CHAINAGE DE FICHIER LEX 


Vous avez certainement constaté, en parcourant ces lignes, et en faisant vous aère vos propres 
fonctions Basic qu’il existait un problèse: le nosbre grandissant de fichiers LEX et le nosbre 
restreint de nuaéros ID et Token aboutit à une cacophonie de LEX. 
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Nous avons réflechi au problèe, Nous en regarlerons ultérieurement, et de aanière plus 
approfondie. Pour le soment, i] faut faire des petits fichiers, sodifiables aiséaent, 

Lorsque l’on voudra les utiliser, il suffira de se faire UN fichier LEX contenant ceux dont on 
a besoin, 

Mais seulesent, cosaent créer ce fichier ? 

C’est pour cela que j'ai créé "CL (Chain Lex), en partant d’une idée de Jean-Jacques MOREAU 
{ct JPC No 22 Mars 85). 

Ce programme denande le non de deux fichiers LEX, et les réunit en un seul, Pour arriver à ce 
résultat, le prograsne crée le port indépendant No 0. 1] est nécessaire d’avoir le LEX "PKLEX" 
et la fonction "REV$" pour procéder. 


PRINCIPE: 

Le port 0 doit être libre (CLAIN FORT) avant exécution. 

Le prograsae reconstitue dans le port 0 les deux LEX, chainés, détruit les deux originaux dans 
la aénoire principale, recopie le LEX chainé, et détruit Le port 0. 


Joyeux chainages ! 


Michel MARTINET 


L INPUT °LEX 1,2 :'3NS,N$ @ DEF KEY "F4", *FREE:PORT(O)ERUNCL,A": © USER ON 
PUT *F4* € STOP € ?A°: DEF KEY "F4", "CLAIM:PORT(O)6RUNCL,B': & CREATE TEXT Z:PORT(O) 
CS=ADDRS ("7") © AIHTDIADDRS(NS)) 8 AO=A1+32 & A2=HTD(ADDRS (MS) 
F2HHTDIREVS (PEEKSDTHS (AO),5))) 8 L2=HTD(REVS(PEEKS (DTHS(A2+32),5)))-5 & Fi=A{4l1 
Di1 € EHTDIREVS (PEEKS (DTH$(A0),5))) © IF © THEN A0=A0+0+6 8 GOTD °2° 
SFI-A0 € AG=AO-A1 & POKE C$,PEEKS (DTHS (A1) ,LI)BPEEKS IDTHS (A2#37),L2 
OKE DTHS(HTD(CS)+32),REVS (DTHS(LI-324L2)) 8 POKE DTHS(HTDICS)+A0),REVS(DTHS(0)) € PURGE N$ 
URGE Né @ COPY N$ & PUT “F4" € STOF € *B°: DEF KEY ‘Ft € USER OFF & CAT NS & END ALL 
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CHOC EN RETOUR 


Un certain nosbre d'erreurs 5e sont infiltrées 
dans les derniers JP. 


Dans le No 20 (Déceabre 84-Janvier 85): 
page 46: en bas, il faut lire "resplacez auss 
INF par NAXREAL aux lignes 740,, 560 et 930 

Page 64: il faut lire 

2860 IF POS(’ES’,A#I10,103) THEN  UNSECURE 
FNSSINS,D$) ELSE SECURE FNSS(NS,D$) 

2965 IF 2=57 OR 2=1057 THEN DISP MSB$(67) @ RETURN 


Dans le No 21 (Février ES): 
Page 39: 3160 FÜR J=K TO N/2 STEP -1 


D'autre part, cosse vous l'avez peut être 
resarqué, dans le No 20 (Décesbre 84/Janvier 85) 
le deuxièae B=1 de la ligne 110 n’a pas lieu 
d'étre. Encore quelques deai-octets récupérés ! 
Pour ceux que ce genre de problèses intéresse, je 
signale que la version que j’utilise.fait 185 
cent quatre vingt cing) octets, tout en 
conservant les bases fonctionnalités (Sous 
progranse, précision ajustable, eee foraat de 
sortie...) . 

de ne prétends pas détenir la version la plus 
courte, Un concours est ouvert: qui fera mieux ? 
Le presier prix sera la considération des aesbres 
de PPC-PARIS ! 


Si vous voyez des erreurs, des oublis, ou des 
iaprécisions dans votre Journal favori, n’hésitez 
plus un instant: cossuniquez les nous, ne les 
gardez pas pour vous. Vous nous faciliterez ains 
la tâche, et celle de ceux qui lisent le Journal 


Merci d'avance, 
Pierre DAVID 


INTEGRATION NUMERIQUE DE GAUSS 


Pour ceux qui ne possèdent pas (encore) le sodule 
MATH du HP7IB, mais néansoins désireux de 5e 
concocter des intégrales d’enfer, je leur 
propose, pour pallier à ce petit inconvénient 
une petite routine qui donne de très bons 
résultats, 


La routine “INTS" (INTéGration) utilise la 
méthode nusérique de GAUSS en 12 constantes. Elle 
peut d’ailleurs être aisésent étendue à 24, voire 
96 onstantes. À chacun de voir ! 


Toutes les fonctions peuvent être intégrées, de a 
à b, de -Inf à a, ou de à à +Inf; Seule 
restriction: pour intégrer de -Inf à +Inf, deu 
intégratiuus Sont à prévoir: par exesple de -Inf 
à 0, puis de 0 à #Inf. 


Sans plus tarder, un exesple: 
CALL INTG 
FON= EXP() 
a,b= -Inf,0 
= 10000 
ou encore: 
CALL INT 
FON= LOB(X)/(1#X80) 
a,b= 0,1nf 
I= 2.800E-12 (autrement dit: Zéro !) 


Daniel JACOB (P11) 


UTILITAIRES 


Voici deux petits utilitaires qui, j’en suis sûr, 
vous rendront la vie plus facile. 


Le presier, utilitaire d'édition, vous perset de 
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lister un fichier, mais en settant des 
cosmentaires utiles pour l'archivage, ou la 
siaple sise au point d’un prograsme: quelle est 
la bonne version, parai tous ses listages ? 

Ne cherchez plus, son programme iaprisera le nos 
du fichier, la date et l'heure du listage, ainsi 
que la place séaoire disponible à ce aosent. 


L'autre utilitaire perset de faire le sénage dans 
la aénoire. Vous effacerez tous les fichiers 
jusqu'à ce que vous donniez le noe “ECPURGE" (End 
Of PURGE). 

A la fin, deux petits sessages vous donneront des 
inforsations sur l’état de votre machine. 


Jean Claude Fourès 


VISUALISATION DE LA RAM 


Si vous voulez partir en chasse contre les 
quartets tapis au fond de votre HP71, il vous 
faudra utiliser les bonnes araes que constituent 
une jisprisante, et son prograsme: j'ai nossé 
"HENDUMPX". C’est une adaptation d’un prograsne 
pour HP73 paru dans Nicro-Revue. Il sort un 
tableau sur l’isprisante (80 colonnes). 


L'utilisation n’est pas trop dure: laissez-vous 
guider par les questions du progranse. 


Bon vidage de sésoire ! 
Philippe DAVASE 


DOW, JDS, DATE, HEURE 


23 pages 


Voici quelques utilitaires relatifs au calendrier: 
DOWN: donne le jour de la sesaine au clavier 

JDS: donne le jour de la sesaine par programme 
{sous prograsse; 

DATE: affiche la date courante 

HEURE: affiche l’heure courante. 


Quelques exesples: 

CALL DDR 

JJ,MX,ABRR: 26,5,1965 (sa date de naissance) 
Mercredi 

CALL JDS(26,5,1965,5$) @ DISP S$ 

Mercredi 

CALL DATE 

Samedi  9/ 3/1985 


Daniel JACOB (P11) 


LE DEBILOMETRE 


fais des sourires idiots et des rongeurs, bonjour. 
En l'honneur du ler Avril, je vous présente LE 
prograase de DAD sur HP-71. 

Ce prograsse est un débilosètre de 10 Ko, qui 
vous renseignera sur votre santé. 

Tous les cossentaires sont sous forse de DATA. 

Je vous laisse donc avec ce prograsse, et vous 
rappelle que toute réclasation est à adresser au 
Journal. 


Serge VAUDENAY 





INTG (Integration) 





znsessssesess: 





222: RRSEEEEESEESEEEEEESE SES SEFERSESSS 


10 DATA .9815606342,.047175:3639,.9041172564, .106939326, 7699028742, . 1600783285, . 5873179543 
20 DATA .2031674267,.367831479,.2334925365,. 1252334085, , 2491470458 





30 DESTROY 1 & RESTORE € CFLAB 0,1,2 

40 LINPUT F(N)= *,68;6$ & INPUT ‘a,b= *;A,B 

50 IF ABS(A)=INF OR ABS(B)=INF THEN 140 ELSE C=(B+A)/2 € B={B-A)/2 
60 FOR D=1 10 6 & READ E,F © IF FLAG(1) THEN 90 

70 X=C+1-1)*FLAGIONIBIE € 1=1+#VAL (66) 

80 1F FLAG(O, NOT FLAB(0))=0 THEN 70 ELSE 120 

90 V=(-L)FLAG(O) 8 X=C+2/(1#E4V) & IF FLAB(2) THEN X=-X 

100 1=1+FAVAL(6$)/(1+E8V) "2 

110 1F FLAB(O,NOT FLAB(0))=0 THEN 90 

120 NEXT D @ IF FLAB(1) THEN 12142 ELSE 12188 

130 CFLAG 0,1,2 @ FIX 4 @ DISP *I=";1 @ STD € BEEP 999,.1 @ END 
140 SFLAB 1 @ IF A=-INF THEN SFLAE 2 & C=-1-B @ GOTO 60 ELSE C=A-1 € GOTO 80 


SUNASRRNNSSNNNANNENEENNTNNNNTNNNTENNNESNNNNNNNATNENTANNNNNNANASSENSENTSNRESENENNSNSNNNNSSENNNENNNARA NRA NENANAENENANSATNEAES 


UTIL (Utilitaires) 


1000 SUB PLIST 
- Utilitaire édition (ECR) 
1010 INPUT "Fichier: ";A$ 
1020 PRINT "Date =";DATES, "Heure =";TINES 
1030 PRINT 
S 1040 PLIST A$ & DESTROY ALL @ A=MEX 
1050 PRINT 
1060 PRINT “Taille séaoire disponible =";A 
1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 END 








==s=ssassse 


2000 SUB PURGE 
— Purger 

2010 DESTROY ALL 

2020 INPUT ‘Fichier: ";A$ 

2030 1F A$="EDPURGE" THEN G0TO ?FIN’ 

2040 A=A+1 @ PURGE A$ € GOTD 2020 


RRSEERSSEEESSEESSSTESSSSESESEEERSESERSESRESESEEEESESELESEESE 


2050 *FIN’: PRINT “Nosbre de fichierls) effacé(s)=";A & A=MEN 
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2060 PRINT "Place disponible en aésoire =*;A & END F 


SOSASAORNANSENARANNNNTANSNNNNNNNNANNESNTANNTNNNNNTN SANTA SN SNS SARANSTANRNSESATSNNANNNNNNNNNNNANSNNNSNNNNNNNENANSNENSNTASANEE 





— HEMDUNPX visualisation de la RAX 
20 DESTROY ALL @ FIX © 
30 DIN HI$CS7,H26157,H3$147J,L$[802,LO$I67,L1#127,N1$IBJ,N28145),72818),21816) 
40 DISP “menory duap” © MAIT 1 € PRINTER IS :PRINTER 
50 INPUT “Dec[1] Hex[2] FileL3]";k 
60 1F K€1 DR K33 THEN 50 
70 ON K GOTO 220,150,80 
80 INPUT “Filename is?*;N1$ 8 10=0 
90 10=10+1 © N26=CATS(10) @ IF N2$="" THEN 80 
100 IF N2$[1,LENINI$)J8NI$ THEN GOTD 90 
110 D1=HTD(ADDRS (N1$)) 
120 A2=VAL(N28118,221) © D2=DI+A2#1 
130 PRINT "FILE: ";N1$;* FROM ADDR. (dec.) ";D1;° TO *;D2 @ PRINT 
140 DI=DI-RMD(D1,16) & D2=D2+i6-RMD(D2,16) © GOTD 290 
150 INPUT “TOP ADDR(Hex)?";H1$ © H1$05,51=07 
160 DI=HTD(H1$) 
170 IF D121048575 OR DI(O THEN GOSUB 350 & GOT 130 » 
180 INPUT “BOTTOM ADDR(Hex)?";H2$ € H2$15,5)="0" 
190 D2=HTD(H2$) 
200 IF D2<0 OR D2>1048575 OR DI>D2 THEN GOSUB 350 € GOTD 180 
210 G0TD 290 
220 INPUT “TOP ADDR. (Absol , Dec) ?";D1 
230 D1=D1-RMD(DI, 18) 
240 IF D131048575 OR DI(0 THEN GOSUE 350 € GOTO 220 
250 INPUT "BOTTOM ADDR. (Absel. Dec) ?";D2 
260 D2=D2+16-RAD(D2, 16) 
270 1F D20 OR D2>1048575 OR D1302 THEN GOSUB 350 & GOTO 250 
280 PRINT 
290 PRINT "ADR 01 23 45 67 89 AB CD EF ASCII ADDR. DEC" 
300 PRINT "----— Re 
310 FOR 1=D{ T0 D2 STEP 16 
320 GOSUB 360 
330 NEXT I 
340 PRINT @ PRINT “END DUMP "LDATESL" “&TIMES @ END 
350 BEEP € DISP "OUT OF RANGE" © NAIT 2 & RETURN 
360 L#[1,51=DTH$(1) © L#[6,812="-" 
370 FOR J=0 TO 15 STEP 2 
380 LO$=PEEKS (DTHS(14#7+1),1)%" *&PEEKS(DTHS(149),1) 
390 A1=343+8 € A2=34J+10 © A3=34+7 
400 LSIAI,A21=L0$ © LSCAS,A3J=" 
410 LS$=CHRS (HTD (PEEKS (DTH$(1+J+1), L)&PEEKS(DTHS$1142),1))) 
420 IF NUM(L3$)(32 OR NUMIL3$))128 THEN L3$="." 
430 LSLJ+55,94552=L3$ 
440 NEXT J 
450 L$[74,80J=STR$ (1) 





mnt 
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460 PRINT L$[1,80) 
470 RETURN 


SOUS SR TARANSESESNNENEN NN SSNNNNRENANANANR NAN SMN SANS RANT RER SARSN NN NNS SN NNNENNNNNRE SUN SANS ONTANSSNSNNENENNSNTSNSNPSSENERSSS 


DON (Jour de la sesaine) 


10 INPUT “JJ,MM,BAAA: *jJ,M,A 
20 CALL JDSH,M,A,5$) & DISP S$ 8 END 





30 SUE JDS(A,B,C,E$) 





40 DATA Vendredi, Saeedi ,Disanche, Lundi ,Mardi,Nercred: 








30 RESTORE @ E=1P(.7#1/(B+1)) 

60 N=1P(IB+1+124E)430. 6001)+IP (365.254 (C-E))+A 
70 FOR 1=0 TD MODIN,7) € READ E$ @ NEXT I 

80 END SUB 





= 


90 SUB DATE 
100 AS=DATES © J=VAL(ASI7I) € M=VAL{ASI4,57) 8 A=VAL(ASI1,21)+#1900 
110 CALL JDS(J,M,A,1$) € DISP USING "BA,1,2(20,°/°),4D";38,J,H,A & END 





120 SUB HEURE 
130 DELAY 0,0 @ DISP TIMES 
140 IF NOT KEYDOWN THEN 130 ELSE END 


AUUSRANANANSNNENNENNNENNENNNSNNNENSENNNNNRRSSSNENSNANENNANNNSSNNNNNTSSANTENNANNNSENNSSANENNNNNANSNENNNSNNNNASNANNNNNNNEENNNTEES 
LE Debilosetre 
- Debilosetre. 


2 POKE 2F441°,°F" 
3 DESTROY ALL @ DIM AI96] © FOR A=1 TO 12 & READ B © AS=ASLCHRS(B) & MENT À € CHARSET A$ 





4 DATA 56,84,86,85, 24,0,56, 85,86, 84,24, 0 






SDISP°-- D 
& USER ON © RADIANS & SFLAE 0,1,2,3,4,-25 @ DELAY 0,0 © OPTION BASE 0 
7 BEEP 349,4 
8 BEEP 349,.2 
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9 BEEP 440,2 

10 BEEP 440,.2 

11 BEEP 392,.2 

12 BEEP 440,.2 

13 BEEP 392,.2 

14 BEEP 349,4 

15 BEEP 349,.2 

16 BEEP 440,.2 

17 BEEP 440,.2 

18 BEEP 392,.2 

19 BEEP 100,.5 

20 FOR A=S TO 1 STEP -1 8 DISP TABIB);"-"3A5"-" € MAIT .5 @ BEEP 10000,.05 & NEXT À 
21 DISP TAB(B);-";0;"- & FOR A=1 T0 20 & BEEP 1.5*A,/30 @ NEXT À 

22 DEF KEY °#43","7 @ DEF KEY °#50°,° & DEF KEY °45/°,°° © DEF KEY °299°, 
23 DEF KEY *#0°,°° @ DEF KEY °g0,”” 

24 CONTRAST 0 & CFLAS 0,1,2,3,4,-25 & DEGREES € DISP 

25 A$=°? € FOR 4=1 T0 76 & READ B € AS=ASLCHRS(B) 8 NEXT À 


26 DATA 80,79,75,69, 39,50, 70,52,52,49,39,44,3%,70,39, !4,73,78,80 

27 DATA 85,84, 32,39,80,97,115,115,119,11.114,100, 32,83, 32,39,59,68, 38,84 
28 DATA 80,79,75,69,39, 50, 70,52, 57,49, 39. 44,39,48, 39,64, 39, 77, 101, 109 

29 DATA 111,114,121,82,108,111,115,116,39,64,85,83,69,82,79, 70,70 





30 CONTRAST 15 € CONTRAST 9 8 STARTUP A$ 
31 DELAY 1 € 6OSUB 178 & GOSUB 178 € GOSUB 178 & GOSUB 178 8 BOSUB 178 @ BEEP 


32 DATA 69,118,101,115,45, 118,111, 117, 115,32, 100, 128,98, 105, 108, 101,32, 83,43,63 

33 DATA 13,0 

34 DATA 67,101,32,112,114,111,103, 114,97, 109, 109, 101,44,32,100,101,115,32, 112, 108 
35 DATA 117,115,32,115,128,114,105,101,117, 120,44, 32,118,111,117,115,32,97, 105, 100 
36 DATA 101,114,97,32, 100,97, 110,115, 32,99, 101,32, 103, 114,97, 118,101,32,112, 114 

37 DATA 111,98, 108, 129,109, 101,46, 13,0 

38 DATA 86,111,117,115,32, 100, 101,118, 114,101,122,32,115,105,109,112,108, 101,109, 101 
39 DATA 110,118,32,115, 128, 108, 101,99, 116, 105,111,110,110,101,114,32,118,111, 115,32 
40 DATA 114,128,112,111,110,115,101,115,32,97,118,101,99,32,108,101,115, 32, 102, 108 
41 DATA 129,99, 104,101, 115,32, 118,101, 114,116, 105,99,97, 108, 101,115,44, 13,0 

42 DATA 101,118,32,108, 101, 115,32, 118,97, 108,105, 100,101,114,32,112,97, 114, 32,69 

45 DATA 78,68, 76,73,78,69,46, 13,0 

44 DATA 66,111,110,32,99,111,117,114,97,103,101,46,48,46, 13,0 

45 DATA 76,111,114,115,113,117,101,32, 118,111,117,115,32,118,111,121,101, 122,52, 113 
46 DATA 117,101,108,113,117,39,117,110,32,115,101,32,114,101,112,111,115,101, 114,44 
47 DATA 32,46,48,46,13,0 

48 DATA 49,45, 32,86,111,117,115,32,108,39,97, 105,100, 101,122,46, 13,3 

49 DATA 50,45, 32, 86,111, 117, 115,32,108,39, 101,110, 118, 105, 101, 122,46, 13,2 

50 DATA 51,45,32,86,111,117, 115,32, 108, 101,32,109,128,112,114,105,115,101, 122,46 

SL DATA 13,1 

52 DATA 73,109,97, 103,105, 110, 101,122, 32, 113,117,101,32,121,111,117,32,104,97, 115 
53 DATA 116,32, 108, 24,115, 116, 105,110, 103,25, 101,110, 32, 106,97, 32, 14,15,4, 103 

54 DATA 9,32,122,104,117,114,32,2,97,104,98, 116, 32,84,79,32,73,78, 80,85 

55 DATA 84,46, 13,0 

56 DATA 49,45,32,86,111,117,115,32,112,97,115,115,101,122,32,99,101,116,116,101 
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S7 DATA 32,113,117,101,115, 116,105, 111,110,46, 13,1 

58 DATA 50,45,32,88,111,117,115,32,114,101,108,105,115, 101,122, 32,99, 101, 108, 108 
59 DATA 101,45, 99, 105,46, 13, 2 

60 DATA 51,45,32,86,111,117,115,32,115,104,114,25,110,103,115, 27,104, 103,116, 122 
61 DATA 32,121,111,117,114,32,17,20,15, 106, 12,46, 13,3 

62 DATA 76,111,114,115,113,117, 101,32, 106, 101,32,118,111,117, 115,32, 100,105, 115,32 
63 DATA 34,115,112,104,105,110,99, 116, 101,114,34,44,32,118,111,117,115,32,114, 128 
64 DATA 112,111,110,100,101,122,44,13,0 

85 DATA 49,45, 32, 34,99,114, 128, 116,105, 110,33,34,13,1 

66 DATA 50,45,32,34, 109,101, 114,99,105, 46, 34,13,3 

87 DATA 51,45,32,34,97,103, 103,103,114,101,117,117,117,117,33,33,33,34,13,2 

68 DATA 81,117,97,110, 100, 32, 106,101, 32,118,111,117, 115, 32,100, 105, 115, 32, 34, 70 
89 DATA 114,97, 110,107,105, 101,32, 71,111, 101, 115,32, 116,111,32,72, 111, 108, 108, 121 
70 DATA 119,111,111,100,34,44,32, 118,111, 117,115, 32, 112,101,110,115,101,122,44,13 
71 DATA © 

72 DATA 49,45, 32, 34,66,69,69, 80, 32,71, 79,84,79,32,75, 69,89, 46, 34,13 

73 DATA 2 

74 DATA 50,45, 32, 34,68, 128, 115,97,114,109,101,109,101,110,116,46,34,13,3 

75 DATA 51,45,32,34,81,117,101, 108,32, 101, 115, 116, 32, 108, 101, 32, 99,2, 12,24 

Te DATA 18,22,113, 117, 105, 32,97,32, 102,97, 105, 116,32,99,101,32, 112,114,111,103 

77 DATA 114,97, 109,109, 101,32, 100, 101, 32, 109,17,6,20,23,32,63,34,13,1 

78 DATA 81,117, 101,108, 108, 101,32, 128,116,97, 105, 116, 32, 108,97, 32,99,111, 117,108 
79 DATA 101,117, 114,32, 100, 117, 32,99, 104, 101,118,97, 108,32,98, 108,97, 110,99, 32 

80 DATA 100,39, 72, 101, 110,114, 105, 32,73, 86, 32,63, 13,0 

81 DATA 49,45,32, 118, 101,114, 116,46, 13,2 

82 DATA 50,45,32,105, 108,32, 110, 39,97, 118,97, 105,116, 32, 112,97, 115,32, 100,101 

83 DATA 32,99, 104,101, 118,97, 108,48,13,1 

84 DATA 51,45,32,98, 108,97,110,99,46, 13,3 

85 DATA 81,117,105,32,97, 32,105, 110,118, 101,110, 116, 128,32, 108, 97, 32, 100, 128,98 
86 DATA 105, 108,105, 116, 128,32,83,13,0 

87 DATA 49,45,32,67,128,115,97,114,46, 13,1 

88 DATA 50,45, 32,87,104, 105, 114,97,99,46, 13,2 

89 DATA 51,45,32,69, 105, 110,115, 118, 101,105, 110,46,13,3 

90 DATA 81,117, 101,108, 108, 101,32, 101,115, 116,32, 108, 97,32, 102,111,114, 109,117, 108 
91 DATA 101,32,100,128,118,101, 108, 111,112, 112,128, 101,32, 100, 101, 32, 108, 39, 97,99 
92 DATA 105,100,101,32,100,128,115,111,120,121,114,105,98,111, 110, 117,99, 108, 128, 105 
93 DATA 113,117,101,32,63,13,0 

94 DATA 49,45,32,72,45,79,45, 72, 13,3 

95 DATA 50,45,32,65,45,66,45, 67, 81,68, 45,69,45, 70,13, 1 

96 DATA 51,45, 32,87,72,51,45, 87,72,50,45,79,45,67, 72, 50,45,67, 72,51 

97 DATA 13,2 

98 DATA 80,111,117,114,32,118,111,117,115,44,32,113,117,105,32,115,111, 110,116, 32 
99 DATA 108,101,115,32,114,111, 105,115, 32, 100, 101, 32, 108, 97,32, 100, 128,98, 105, 108 
100 DATA 105,116, 128,32, 83, 13,0 

101 DATA 49,45,32,67,104,105,99,111,32, 100,39,65, 103, 110, 101,97, 117,32, 101, 116 

102 DATA 32,71,114,111,117,99,104,111,32,b, 105, 122,110, 101,115, 115,46,13,3 

103 DATA 50,45,32,77,105,116,116,101,114,97,110,100,32, 101,116, 32, 70,97,98, 105 

104 DATA 117,115,46,13,2 
105 DATA 51,45,32,83,101,114,103,101,32,86,97, 117,100, 101,110,97,121,32,101,116 
106 DATA 32,83, 101,114,103, 101,32,86,97,117,100,101,110,97,121,32,40,99,39, 101 

107 DATA 115,116, 32,109,111,105,41,46,13,1 

108 DATA 81,117, 101,32,115,105, 103,110, 105, 102,105, 101,32, 108, 101, 32,115, 105, 103, 108 
109 DATA 101,32,39,77,65,84,72,79,83,39,32,63, 13,0 

110 DATA 49,45, 32, 39,77,105,108, 105, 101,117, 32,85, 112, 112, 114,111, 112,114, 105, 128 
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112 DATA 32,112,111,117,114,32,84,114,97,118,97, 105,108, 108, 101,114, 32,72, 101,117 
112 DATA 114,101,117,120,32,115,117,114,32, 117,110, 32,79, 114,100,105, 110,97, 118, 101 
113 DATA 117,114,32,83,97,99, 114,105, 102, 105, 128,39,46, 13,1 

114 DATA 50,45,32,39,109,97, 116, 128,114, 105,101, 108, 39,44, 32,101, 110, 32,97, 114 

115 DATA 103,111,116,46,13,2 

118 DATA 51,45,32,114,101,112,97,115,32,112,111,117,114,32,99,97,110, 105,110, 32 

117 DATA 109,97,118,104,101,117,120,46, 13,3 

118 DATA 81,117,101,32,112,101,110,115,101,122,45,118,111,117,115,32,100, 101, 32,99 
119 DATA 101,32,112,114,111,103,114,97, 109,109, 101,32, 83, 13,0 

120 DATA 49,45,32,83,117,112,101,114,32,33,33,33,46,46,48, 13,3 

121 DATA 50,45,32,98, 101,108, 32, 101,120, 101,109, 112, 108,101, 32, 100,101, 32,68,65 

122 DATA 79,32,40,68, 128,98, 105, 108,105, 116,128, 32,85, 115,115, 105,115, 116,128, 101 
123 DATA 32,112,97,114,32,79, 114,100, 105, 110,97,116,101,117,114,41,32,112, 111,117 
124 DATA 114,32,117, 110,32, 112,111,105,115,115,111,110, 32, 100,39,65, 118, 114, 105, 108 
125 DATA 46,13,2 

128 DATA 51,45,32,65, 114,99, 104, 105,45, 110, 117, 108,58, 32,112,114,111,103,114,97 

127 DATA 109, 109,101,32, 100, 128,98, 105, 108, 101,46, 13,1 






T0 10 € GOSUB 133 @ GOSUB 134 @ GOSUB 1 
129 DISP * --R sultats --” @ BEEP 100,2 

130 ON 1P(15-11/5) RESTORE 141,141,141,155, 167 

131 GOSUB 178 € GOSUB 178 @ GDSUE 178 

132 DISP © DELAY 0,0 @ PUT °° @ PUT *F° @ PUT °F’ @ PUT ’#38” @ END 
133 DISP & DISP *-- Question ’&STRS(Q)& --" @ BEEP 04500 @ RETURN 
134 DISP & DIM A$(4)I96),P{4) & FOR 1=1 TD 4 

135 A$(1)="? 

136 READ C @ IF 1=1 AND C<)13 THEN DISP CHRS(C); 

137 IF CO13 THEN AS(I)=AS(T)RCHRS(C) © GOTO 136 

158 IF 1=1 THEN DISP 

139 READ P{I) @ NEXT 1 @ RETURN 

140 CALL MENU(AS(),A) @ IF A)1 THEN S=S+P(A) @ RETURN ELSE 140 


8 NEXT © 





141 DATA 86,111,116,114,101,32, 100, 128,98, 105,108, 105,116,128,32,101,115, 116,32, 105 
142 DATA 110, 102,105,110,105, 101,48, 32,86, 111,117, 115, 32,32, 100,101,118,114, 105, 101 
143 DATA 122,52,118,111,117, 115,32, 102,97, 105,114, 101,32, 105,110,116,101,114, 110,101 
144 DATA 114,32,100,39, 117,114, 103,101, 110,99, 101,46, 13 

145 DATA 74,101,32,118,111,117,115,32,99,111,110,115, 101,105, 108, 108, 101,32, 100,101 
144 DATA 32,99,111,110,116,97,99, 116, 101, 114, 32,105, 109, 109, 128, 100, 105,97, 116, 101 
147 DATA 109,101,110, 116,32, 108, 101,32, 100,111,99,116,101,117,114,32,86,111, 110,32 
148 DATA 71,108,25,116, 101,110, 115,99, 104, 116, 117,109, 109, 101, 108, 104, 105, 109, 100, 24 
149 DATA 114,102,48,13 

150 DATA 87,39,101,115, 116,32, 108,117, 105, 32,113,117,105, 32,109, 39,97,32,115, 111 

151 DATA 105, 103,110, 128,32, 40,99, 101,32, 110,39,101,115,116,32, 100, 111, 110,99, 32 
152 DATA 112,97,115,32,117,110, 32,99, 104,97, 114,108,97,116,97,110, 116,41,44,32 

153 DATA 100,101, 109,97,110, 100,101,122, 32,115, 111,110, 32,97, 100,114, 101,115, 115,101 
154 DATA 32,97,117,32,106,111,117,114,110,97,108,46,13 

155 DATA 65,116,116,101,110,116,105,111,110,58,32,118,111,117,115, 32,115, 101, 109,98 
156 DATA 108,101,122,32,97,117,32,98,111,114,100, 32, 100,117, 32,103, 111,117, 102 

157 DATA 102,114,101,46,13 

158 DATA 80,114,111, 102, 102, 105,118, 101,122, 32,100, 101,32, 108,97, 32, 118, 105, 101,44 
159 DATA 32,105, 108, 32, 101, 110, 32, 101,115, 116, 32,101,110,99, 111,114, 101,32, 116, 101 
180 DATA 109,112,115,58,32,97, 117,99,117,110,32,115,121,109,112,116, 111,109, 101,32 
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16 DATA 1 
182 DATA 1 
183 DATA 83,117,114,118, 101, 105,108, 108,101,122,45,118,111,117,115,44,32,101,116,32 
184 DATA 109,97,110, 103,101, 122,32, 100,101, 115,32,99,97,114,111,116, 116,101, 115,32 
185 DATA 118,111,117, 115,32, 108,101, 115,32, 109,97,116, 105, 110, 115,44, 32,101, 116, 32 
166 DATA L18,111,117, 116,32, 105,114,97,32,98, 105, 101, 110,46, 13 

167 DATA 83,118,101,115,32,118,111,117,115,32,115,117, 114,32,100,39,97,118,111, 105 
188 DATA 114,32,98, 105,101, 110,32,114,128, 112,111,110, 100, 117,32,97, 117, 120,32, 113 
189 DATA 117,101,115,116,105,111, 110,115, 32,83, 13 

170 DATA 86,111,117,115,32,110, 101,32, 115, 101, 109,98, 108, 101,122, 32, 112,97, 115, 32 

171 DATA 112,114,128,115,101,110,118, 101,114, 32,100, 101,32, 115,105, 103, 110, 101, 115, 32 
172 DATA 100,101,32, 100, 128,98, 105, 108, 105, 116, 128, 44,32, 98,114,97,118, 111,48, 13 

173 DATA 67,111,110,116,105, 110,117, 101,122, 32, 100,101,32, 109,97,110,103,101,114,32 
174 DATA 100,101,115,32,99,97, 114,111,116, 116, 101,115, 32,40,99,39, 101,115, 118, 32 

175 DATA 117,110,32, 116,114, 117,99,32,113,117,101,32, 109, 39,97, 32,114, 128, 118, 128 

176 DATA 108,128,32,108, 101,32, 100,111,99, 116, 101,117, 114,32,66,101,97,116,41,4 

177 DATA 13 


12,114,114,102,111,110,100,32,10€,101, 32, 100, 128,98, 105, 108,105,116,128,46 
3 
: 


178 D! 
175 READ C @ IF C<>13 THEN DISF CHPSIC); 
160 1F C{)13 THEN 179 ELSE RETURN 








181 SUP MENUIAS(),A) 
182 DELAY INF € 4=2 € ON ERRUR GOTC 188 

185 DISF A$A} 

184 BS=KEYS & IF B$=°° THEN 184 

185 ON POS(' H4SHSO#S1438#162",B)/3+1 GOTO 184,186,188, 189,190, 187 
186 R=1 & END 

187 À=1 6 6070 185 

188 A=A-(A>1) @ GOT 183 

189 A=A+I € GOTO 183 

190 DELAY 1 & END SUB 
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EVENTUELLEMENT: JE M°AEBONNE À COMFTER DU !_1_1/! 








1/1911L: 


JOINDRE À VOTRE INSCRIFTION UNE FHOTO D'IDENTITE ET UNE ENVELOFFE TIMBREE À 
VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A: 


MR PHILIPPE GUEZ. 56 RUE J.9J. ROUSSEAU, 75001 PARIS (FRANCE) 
JPC nr 23 pageS58 








